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SECTION  I 
INTRODUCTION 

A  computer  program  has  been  developed  to  simulate  the  reentry  of  sharp 
and  blunt  cones.  This  program  includes  the  effects  of  surface  mass  transfer 
to  simulate  ablation  during  reentry,  and  also  includes  laminar,  transi¬ 
tional  and  turbulent  boundary-layer  analysis.  A  program  of  this  type  is 
necessary  since  wind  tunnels  capable  of  providing  the  correct  flight  condi¬ 
tions  for  reentering  supersonic  or  hypersonic  cones  are  non-existent.  The 
object  of  this  investigation  is  to  develop  such  a  program  with  a  prediction 
method  which  is  as  general  as  possible,  allowing  the  solution  of  a  wide 
class  of  flow  problems. 

In  this  report  the  fully  three-dimensional  laminar,  transitional,  and 
turbulent  boundary-layer  equations  are  formulated  and  include  the  effects 
of  surface  mass  transfer,  free-stream  pressure  gradient,  and  heat  transfer 
at  the  wall.  In  addition,  windward  plane  of  symmetry  equations  are 
developed  in  similar  manner  for  treating  the  windward  plane  of  sharp  and 
blunt  cones  under  investigation.  The  geometries  under  consideration  are 
sharp  and  spherically  blunted  cones  at  angle  of  attack  to  uniform  supersonic 
or  hypersonic  free-streams . 

The  turbulent  boundary  layer  has  been  modeled  by  using  an  invariant 
model  of  three-dimensional  turbulence  which  employs  the  two-layer  eddy- 
viscosity  mixing-length  approach.  An  intermittency  factor  has  been  used 
through  the  transition  regime  to  express  the  probability  of  the  flow  being 
turbulent  at  each  solution  point. 

The  resulting  boundary-layer  equations  are  integrated  using  a  marching 
implicit  finite-difference  scheme  on  an  IBM  370  system-model  158  digital 
computer. 

Following  is  a  brief  review  of  the  work  in  both  two  and  three  dimen¬ 
sional  boundary  layers  leading  to  this  investigation. 

1.1  BACKGROUND 

The  three-dimensional  compressible  turbulent  boundary-layer  equations 
have  been  presented  by  Vagi io-Laurin  (Ref.  1)  and  by  Braun  (Ref.  2).  In 
addition,  the  laminar,  comoressible  three-dimensional  equations  were 
presented  by  Moore  (Ref.  3).  The  laminar  three-dimensional  equations  were 
integrated  using  a  marching  finite-difference  scheme  by  McGowan  and  Davis 
(Ref.  4)  for  sharp  cones  at  angle  of  attack.  The  McGowan  and  Davis  report 
puts  the  governing  equations  in  similarity  variable  form,  reducing  the 
number  of  independent  variables  from  three  to  two  in  the  transformed  equa¬ 
tions.  Therefore  their  method  becomes  a  two-dimensional  scheme. 

Adams  (Ref.  5)  extended  the  method  of  McGowan  and  Davis  and  a  trans¬ 
formation  similar  to  that  used  by  Dwyer  (Ref.  6)  to  include  turbulent 
boundary  layers  with  a  variable  normal  grid  spacing.  The  Adams  method, 
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however,  was  still  a  locally  similar  solution  representing  the  patching 
together  of  local  solutions  for  sharp  cones  in  hypersonic  flow.  Adams 
presented  detailed,  hypersonic,  three-dimensional,  turbulent  boundary-layer 
profiles  around  a  sharp  cone  at  incidence  which  are  compared  to  the  results 
of  the  present  investigation! 

Frieders  and  Lewis  (Ref.  7)  developed  a  computer  program  for  fully 
three-dimensional  laminar  boundary  layers  based  on  the  method  of  McGowan 
and  Davis  mentioned  above,  and  on  the  two-dimensional  method  of  Anderson 
and  Lewis  (Ref.  8).  This  program  extended  the  two-dimensional  nature  of 
the  McGowan  and  Davis  method  to  a  true  three-dimensional  method  for  use  on 
blunt  cones  at  angle  of  attack,  and  for  use  in  non-uniform  flow  fields.  The 
Frieders  and  Lewis  program  was  not  extended  to  the  present  investigation  due 
to  the  use  of  two  different  coordinate  systems  and  transformations  in  order 
to  patch  together  full  three-dimensional  solutions  to  blunt  cones  at 
incidence. 

Mayne  (Ref.  9)  also  used  the  method  of  McGowan  and  Davis  to  study 
streamline  swallowing  on  blunt  cones  at  angle  of  attack.  His  study  was 
limited  to  the  windward  streamline  and  also  involved  the  use  of  two  differ¬ 
ent  coordinate  systems.  Mayne  also  split  the  solution  method  for  a  blunt 
cone  into  three  parts;  1)  the  stagnation  point,  2)  the  axisymmetric  sphere 
where  the  cross-flow  momentum  equation  is  not  solved,  and  3)  the  fully 
three-dimensional  afterbody  behind  the  sphere-cone  tangent  point.  The 
present  investigation  also  utilizes  this  procedure  for  blunt  cone  solutions. 

Mass  transfer  has  been  investigated  for  two-dimensional  boundary-layer 
flows  over  cones  by  a  number  of  authors.  Jaffe,  Lind  and  Smith  (Ref.  10) 
investigated  the  binary  diffusion  of  He,  Ar,  and  CO2  into  air  as  well  as 
air  into  air  for  sharp  cones  at  zero  incidence.  However,  the  species 
boundary  condition  at  the  wall  was  incorrectly  stated.  The  correct  wall 
boundary  condition  for  the  species  equation  was  used  by  Lewis,  Adams,  and 
Gilley  (Ref.  11),  and  by  Mayne,  Gilley  and  Lewis  (Ref.  12).  These  two 
reports  dealt  with  mass  transfer  effects  on  slender  blunted  cones  and 
sharp  cones  at  zero  incidence  to  hypersonic  flow.  The  results  of  these 
reports  are  compared  to  present  results  for  zero  incidence  cones. 

Mass  transfer  in  turbulent  boundary  layers  was  investigated  by  Miner 
and  Lewis  (Ref.  13)  for  two-dimensional  flow  using  a  modified  version  of 
the  computer  program  reported  in  Miner,  Anderson,  and  Lewis  (Ref.  14). 

The  species  equation  wall  boundary  condition  is  also  incorrect  as  reported 
in  Miner  and  Lewis.  The  transformation  of  the  governing  equations  in  the 
present  report  is  identical  to  that  used  by  Miner  and  Lewis.  The  present 
computer  program  can  be  thought  of  as  the  three-dimensional  analog  of  the 
program  used  by  Miner  and  Lewis,  with  the  exception  of  the  species  wall 
boundary  condition. 

Two  recent  papers  by  Adams  (Ref.  15)  and  by  Watkins  (Ref.  16)  make  use 
of  the  Levy-Lees  transformation  to  the  governing  equations.  Adams  developed 
an  implicit  finite-difference  analysis  of  sharp  cone  windward  streamline 


8 


AEDC-TR-75-55 


flows  including  transition  and  turbulence.  The  Adams  report  utilizes  the 
suggestion  by  Moore  (Ref.  17)  for  dealing  with  the  crossflow  momentum 
equation  at  the  windward  streamline.  The  same  method  is  used  in  the 
present  investigation.  Adams  also  develops  the  variable  spaced  grid  system 
for  the  normal  coordinate,  which  is  also  found  in  the  present  program. 

Watkins  developed  the  full  three-dimensional  laminar  boundary-layer 
equations' in  a  modified  Levy-Lees  coordinate  system  for  use  in  studying 
spinning  sharp  bodies  at  angle  of  attack.  The  form  of  his  transformed 
equations  are  very  similar  to  the  laminar  version  of  the  transformed  equa¬ 
tions  as  described  in  this  report. 

A  report  by  Blottner  and  Ellis  (Ref.  18)  describes  a  computer  program 
very  similar  to  the  present  program  in  terms  of  numerical  solution  method, 
but  is  limited  to  laminar,  incompressible  boundary  layers  over  blunt 
bodies. 

The  present  analysis  is  the  first  to  the  author's  knowledge  to  express 
the  full  three-dimensional  compressible,  turbulent  boundary-layer  equations 
including  the  effects  of  heat  and  mass  transfer.  The  equations  have  been 
transformed  using  the  Levy-Lees  transformation  equations.  The  finite- 
difference  method  follows  the  method  of  McGowan  and  Davis,  utilizing  an 
implicit  scheme  similar  to  that  used  by  Dwyer  (Ref.  6)  as  modified  by 
Krause  (Ref.  19). 

Results  of  the  present  investigation  are  presented  and  compared  to 
available  experimental  and  numerical  data.  The  full  three-dimensional 
solution  of  a  sharp  cone  at  angle  of  attack  with  transition  to  turbulence 
is  presented  without  comparison  using  computer  drawn  plots  generated  by 
the  program.  Some  results  are  also  presented  to  show  the  effects  of  using 
different  turbulent  Prandtl  number  profiles  as  provided  for  in  the  program. 

The  analysis  and  results  are  followed  by  four  appendices  describing 
the  structure  of  the  computer  program,  the  input  data,  output  data  and  the 
job  control  language.  Two  final  appendices  present  sample  runs  of  the 
program  for  four  different  problems,  and  a  listing  of  the  program  itself. 


SECTION  II 
ANALYSIS 

This  section  presents  the  three-dimensional  conservation  equations 
for  laminar,  transitional  or  turbulent  flows  of  a  two  component  mixture 
of  nonreacting  perfect  gases.  The  procedure  for  transforming  the  equa¬ 
tions  for  solution  by  a  finite-difference  method  is  also  discussed  along 
with  the  solution  method  itself.  Following  the  development  of  the  partial 
differential  governing  equations  the  calculation  of  the  fluid  properties 
will  be  presented.  The  eddy-viscosity  laws,  turbulent  Prandtl  number  laws, 
transition  models,  and  the  boundary- layer  parameters  will  also  be  covered 
in  the  analysis. 
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2.1  GOVERNING  CONSERVATION  EQUATIONS 

The  laminar  compressible  three-dimensional  boundary -layer  equations 
were  presented  by  Moore  (Ref.  3).  Following  Moore's  laminar  equations  the 
governing  equations  have  been  developed  for  turbulent  compressible  flows 
and  are  presented  here  without  derivation  in  terms  of  mean  physical 
variables. 

Continuity  Equation 


(pUf)  +  37  (pVr)  +  3?  (pw)  =  0 


0) 


Streamwise  Momentum  Equation 


pu  +  pV  UL  +  p  «  iu 
y  ax  p  ay  M  r  a 41 


-  p 


w2  ar 


-8Pe 


r  ax  ax 


ay  [u  ty  ”  pUV] 


(2) 


Transverse  Momentum  Equation 


„  aw  ,  ,,  aw  .  w  aw  ,  uw  ar 
M  ax  ay  r  s<j>  y  r  ax 


-1  3pe  ,  a  , 
r  a<t>  ay  I v  ay  pV 


[-  f  -  »*'«']  <3> 


Normal  Momentum  Equation 


=  0 

ay 


(4) 


Energy  Equation 

I,  3H  4.  v  3H  4. 

pU  3?  +  oV  sy  0 


wM-3_r  /sH  4.  1-Pr  ih\  y  1  m  .  | 
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sy 


ac 

(Le-l)  (hf-h.)  E  h.pv'C! 


Species  Equation 


aC4  .  aCj 

pu  — —  +  pV  — —  +  p 
M  ax  w  ay  w 


where  V  =  v  +  p'v'/p.  The  equation  of  state  for  each  species  is: 

P,  =  jr-  RT 


(5) 


w  aCi  _  a  f.  u  sCi  .  u,r'~|  tc\ 

r  a<ji  ay  [  e  Pr  ay  p  CiJ  ^  ^ 


(7) 


V.'.. 
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where  R  is  the  universal  gas  constant.  Only  one  species  equation  is 
necessary  since  in  a  two  component  mixture  the  mass  fractions  sum  to  unity: 


E 

i 


ci  =  l 


(8) 


The  viscosity  and  thermal  conductivity  are  related  by  the  Prandtl  number: 

Pr  =  yCp/k  (9) 


where 


c. 


Similarly  diffusion  and  thermal  conductivity  are  related  by  the  Lewis  number1 


Le  =  p  D.f  Cp/k  (10) 

The  boundary  conditions  on  the  above  equations  are  as  follows: 

Momentum  Equations 

y  =  0  :  u  =  w  =  u'v'  =  v'w'  =  p 1 v '  =  0,  v  =  vw 

y  -*•  00  :  u  =  ufi ,  w  =  we 

u'v'  =  v'w'  =  p'v'  =  0 

Energy  Equations 


y  =  0  :  H  =  H  ,  v'H1  =  0 

W 

y  00  :  H  =  He>  v'H'  =  0 

Species  Equations 


y  -*■  «  :  cf  =  l.o,  v'cj  =  o 


In  the  derivation  of  the  conservation  equations  the  usual  assumptions  regard¬ 
ing  the  fluctuating  quantities  have  been  employed.  These  are: 
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1)  the  turbulent  level  is  small  and  therefore  terms  having  the  mean 
square  of  the  velocity  fluctuation  are  dropped  from  the  equations. 

2)  molecular  transport  parameters  are  approximated  by  the  mean  flow 
counterparts. 

3)  the  rate  of  change  of  mean  flow  properties  in  the  normal  direction 
is  an  order  of  magnitude  greater  than  the  rates  of  change  in  the  stream- 
wise  and  transverse  directions. 

The  solution  of  the  governing  equations  requires  the  expression  of  the 
turbulent  shear  terms  and  the  turbulent  flux  of  total  enthalpy  in  terms 
of  the  mean  flow  quantities.  A  popular  concept  used  to  obtain  these 
expressions  is  the  eddy  viscosity,  eddy  conductivity  analogy  with  the 
molecular  viscosity  and  conductivity  where: 


and 

and  where  the  dimensionless 


-pu'v'  =  ex  3u/3y 
-pv'w'  =  e  3w/3 y 
-pv'H'  =  kt  3H/3y 
transport  parameters  are: 


(ID 

(12) 

(13) 


Prt  =  Cp  e/kt  (14) 

Let=PDtCp/kt  (15) 

The  eddy  viscosities  ex  and  in  the  x  and  <j>  directions  will  be  shown  to 
be  equal  later  in  this  analysis.  A  model  for  the  eddy  viscosity,  based  on 
Prandtl's  mixing-length  hypothesis  will  also  be  presented  later  in  the 
analysis. 

Substituting  directly,  the  governing  equations  in  terms  of  mean 
physical  variables  and  the  turbulent  transport  terms  described  above  are: 


Continuity 


«  <>’ur>  +  3j  +  (»Vr>  +  W  <PW)  *  ° 


(16) 


Streamwise  Momentum  Equation 


-3Pf 


I.  3U  ,  w  3U  .  W  3U  W  3r  _  -O'e  , 

3x  p  9y  ■  r  3<j>  p  r  3x  3x 


iy[(*  *  !f  e)  §]  (17> 
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Transverse  Momentum  Equation 


..  3W  j.  „  3W  ,  W  3W  , 

pUsx  +  pVay  +  pr3*’  + 


uw  3T  _  -1 _ e  3_  r  /  ,  T  \  3W  “I 

p  r  3x  r  3<t>  3y  [  'p  *f  e'  ay  J 


(18) 


Energy.  Equation 


,,  3H  *'  u  3H  .  W  3H  _  3 

pU  aw  +  pv  87  +  p  F  W  W 


(p  +  Ij 


fe[ffe  i1-11  •sr<Lv,>K-»i>  It]  cm 


Species  Equation 


3X 


OUf  .  W  3Cf  .  ..  ouf  _  3 

pu  —  +  p  rW  pV 


3C, 


3y  3y 


(l e_p  +  Let  £  *f  \  aCf 
\  Pr  Prt  /  3y 


(20) 


where  1^  is  the  transition  intermittency  factor. 
2.2  WINDWARD  PLANE  CONSERVATION  EQUATIONS 


On  the  windward  plane  of  a  cone  the  transverse  (crossflow)  velocity,  w, 
and  3Pe/3!|>  vanish  due  to  symmetry;  however,  the  crossflow  velocity  gradient 
does  not  vanish  and  still  appears  in  the  continuity  equation.  Under  these 
conditions  the  transverse  momentum  equation  would  vanish  completely  at  the 
windward  plane  where  initial  profiles  are  generated  for  the  remaining 
integration  of  the  governing  equations.  To  avoid  this  problem,  Moore 
(Ref.  17)  has  suggested  that  the  transverse  momentum  equation  first  be 
differentiated  with  respect  to  <f>  before  neglecting  terms  which  vanish  at 
the  windward  streamline.  This  procedure  results  in  the  following  transverse 
momentum  equation  at  the  windward  plane: 


u  3w  3r 
r  3<j>  3x 


-1 

r 


s2p. 


3<J> 


3  / 

3y  [(p 


If  e) 


(21) 


The  remaining  conservation  equations  reduce  to  the  following  at  the  wind¬ 
ward  plane  where  w  =  0: 


Streamwise  Momentum 


3u  3u 

pU  —  +  pv  — 

M  ay  M  3y 


3X 


3_ 

3y 


[ 


(y  +  If  e) 


3U 

sy 


(22) 
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Energy 

„  3H  .  u  3H  =  3_ 
pu  3x  +  pv  ay  ay 


3y 


[{fr 


(u  +  I 
(Le-1)  + 


pp-  (Let-1)  |(hf-hi)  gy-J 


Species 


3Cf 

3Cf 

/Le  p 

Le.  e 
+  1 

3X 

+  pV  3jT 

sy  L 

y  Pr 

Prt 

/  ay  J 

Continuity 


3_ 

3X 


(pur)  +  p  |^  + 


3_ 

ay 


(pvr)  =  0 


(23) 


(24) 


(25) 


It  can  be  seen  that  the  conservation  equations  have  been  reduced  to  a 
quasi-two-dimensional  form  at  the  windward  plane.  The  continuity  equation 
serves  as  the  only  coupling  between  the  transverse  momentum  equation  and  the 
remaining  governing  equations.  For  cones  at  zero  angle  of  attack  the 
transverse  momentum  equation  in  either  form  vanishes  identically  leaving 
a  completely  axi symmetric  problem. 

2.3  COORDINATE  TRANSFORMATION 

A  more  convenient  form  of  the  governing  equations  for  numerical  solu¬ 
tion  is  obtained  by  introducing  two  stream  functions  defined  as  follows: 


4-  (x,y)  =  fit  f  U,n) 


(26) 


and 


1 1>  (x,y)  =  »^c7r  g  U,n)  (27) 

where  5,  n  are  the  Lees-Dorodnitzyn  (Levy-Lees)  transformed  coordinates 
defined  as  follows: 


5  (x)  = 


Pryriirr  dx 


(28) 


n 


(x,$,y)  =  peuer/v^T 


/ 


£-  dy 
pe 


(29) 
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This  coordinate  transformation  removes  the  singularity  at  x  =  0,  and 
stretches  the  normal  coordinate.  Accordingly  the  transformed  derivatives 
become : 


3x  prrur  3C  3x  3n 


3 _  _  3 _  _j_  3n  3 _ 

3<J>  3<t>  3<t>  3n 


(30) 

(31) 


k  '  pUer^  |?  <32> 

Satisfying  the  continuity  equation  with  above  stream  functions  the  following 
relations  are  obtained: 


1IV1  _  3Y 
Pur  -  w 


pW 


_  3^ 

“  ay 


pvr 


_  *11  _  11 
3X  '  3<J> 


Using  equations  35,  30,  and  32  we  obtain  the  following  expression: 


ovr  m 

A  ' 


3f 


2  ■  nx  fl  +  n0  6gl  +  2c  +  f  +  6  fj  -  0 


pruryrr 


(33) 

(34) 

(35) 


(36) 


or 

V  +  2g  3f/3?  +  f  +  6  dg/d<p  =  0  (37) 

where 

V  =  pvr  *^?/pru rurr2  +  nx  5r  f1  +0^69'  (38) 

and 

6  =  2g/pruryrr3  (39) 

Differentiation  of  equation  (33)  with  respect  to  y  using  equation  (32) 
gives  the  expression  for  f ' : 


f' 


(40) 
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Similarly,  differentiation  of  equation  (34)  with  respect  to  y  using  equation 
(32)  gives  the  expression  for  g 1 : 


g1  =  *L 
3  u 

e 


(41) 


Evaluating  the  momentum  equations  (2),  (3)  at  the  outer  edge  gives  the 
pressure  gradients  as: 


u  pewe  ar 

ax  pe  e  ax  r  a*  r  ax 


(42) 


i  aw„  p  w  aw„  p  u  w 

-1 _ e  _  _ e  +  Ke  e e  +  ye  e  e  ar 

r  a<()  pe  e  ax  r  3$  r  ax 


(43) 


Using  equations  (30) - (43 )  the  governing  conservation  equations  in  transformed 
variables  become: 


Continuity 


V  +  2«  ff- ♦  f '  +  4  |£- -  0 


(44) 


Streamwise  Momentum 


2£fl  §{-+  (f‘2  -  x)  +  6^g'  f|-  +  y-j f 1  g '  - 

+  (V  -  £*'fi)  +  e-|  (a2x  -  g  2)  -  t  — tr~  =  0 


3n 


Transverse.  Momentum 


(45) 


25f‘  ff-  +  6,f'g'  -  B2x  +  (V  -  §£-  + 

9*  U“  +  Y]  9'  2  “  <*Y2X^  +  £]  (f'g'  -  ax)  -  l  Cl  =  0 

f  9  n 


Species  Equation 


(47) 
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Energy 

2ef'  H+  «g 


**  2 

£  fl  9  9 


Pr  "  2 

3n 


■  H. 


3n 


[(»***  fe-TrJtwS]*0 


where 


SL  = 

pv/p 

rV 

,  *  = 

4(1 

+  lf 

+  ** 
e  ),  £ 

■T 

Pr 

Le.  > 

£ 

=  l 

( 

+  !f 

e+  Pr 

t  L  > 

)>  e  = 

7* 6 

= 

25 

ue 

3Ue 

35 

»  X  = 

^e 
p  ’ 

Y1 

_  ,  sue 
Ue  3* 

j  a  = 

25 

3We 

1 

3we 

_  25 

3r 

b2  = 

ue 

35 

,  Y2 

“  ue 

35  * 

el  "  ~ 

35 

w. 


le 


(48) 


(49) 


The  boundary  conditions  for  the  transformed  governing  equations  are: 
Momentum  Equations 


Species  Equation 


Energy  Equation 


n  =  0  : 

“h 

11 

£Q 

O 

II 

n  : 
00 

f'  =  1, 

g'  =  a 

O 

II 

C’ 

4— 

•i-  > 

Q 

1  1 

II 

N 

— 1 
3*Jw 

n  +  n  : 

oo 

z  =  1.0 

n  =  0  :  9 
n  -*-n  m  :  9 

ot> 


=  Hw 

-  He 
=  1.0 
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For  the  case  of  a  sharp  cone  the  quantities  6  and  e-.  take  on  the  following 
simple  values: 


6  =  2/3  sin  ec  e-|  =  2/3 

where  ec  is  the  cone  half  angle.  Also,  for  a  sharp  cone  in  uniform  flow 
the  s  derivatives  of  the  edge  quantities  vanish  due  to  conical  flow  con¬ 
ditions.  In  this  case  the  variables  6i ,  &2»  E  are  zero.  In  addition,  at 
the  windward  streamline,  y,  and  a  are  zero  by  symmetry.  The  variable  y« 
is  non -zero  at  the  windward  streamline.  To  obtain  the  transformed  equa¬ 
tions  at  the  windward  streamline  two  new  stream  functions  are  introduced 
in  order  to  satisfy  the  windward  plane  continuity  equation,  as  follows: 


?  = 

;  fit  f 

(50) 

^  = 

;  v^T  g 

(51) 

pur 

=  sv/sy 

(52) 

pV 

=  3^/ay 

(53) 

pvr 

=  -av/sx  -  ip/r 

(54) 

Using  equations  (54),  (50)  and  (51)  we  can  obtain  the  following  equation: 

V  +  2c  af/ag  +  f  +  Sg  =  0  (55) 


where 

V  =  -  6rn  f 1 

D  U  U  T  * 

Hr  r  r 

By  using  equations  (50)-(55),  (21 ) -(25) ,  and  taking  into  account  coeffi¬ 
cients  that  are  zero  due  to  conical  flow  and  symmetry,  the  transformed 
conservation  equations  become: 

Continuity 

V'  +  2^  3f'/3S  +  f1  +  6g'  =  0  (56) 

Streamwise  Momentum 

2gf '  af'/ae  +  p1  (f,2-x)  +  (V-£*'n)  3f'/3n  -  32f'/3n2  =  0  (57) 
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Transverse  Momentum 

-2cf'  ag'/ac  +  U *'n-v)  3g73n  -  <s Jg * 2  +  e1  f'g7<s  +  e3  xj-  e-j ^'g 1 


+  i*n  a2g73n2  =  0 


(58) 


Species  . 


2£f 1  3Z/35  +  [v  -  nj£***  Le/PrS'jaz/Sn  -  &***  Le/Pr  n  32z/3n2  =  0 


(59) 


Energy 

2sf'  36/3?  -[a  |ji**/Pr ['  -  vjse/sn  -  a**/Pr  a  32e/3n2 

+  u02/He  q  3/3n[U**/Pr  -  a* |  f‘  3f73n]+  ue2/Hg  a  3/3n  j  |t***  Le/Pr 

-  a**/Prl  (hf-h.)  3z/3n  j  =  0  (60) 

where  ’ 

e3  =  VPeiie2  a2Pe/a<P2 

It  can  be  shown  through  equations  (32)  and  (53)  that  at  the  windward  plane 

9'  ■  Vue  <61) 

and  the  boundary  conditions  on  the  transverse  momentum  equation  are: 

n  =  0  :  g '  =  0 

n  -  n*,  :  9'  =  w^/ue 

For  a  cone  at  zero  angle  of  attack  the  system  of  equations  (56) -(61 ) 
reduces  to  a  fully  axi symmetric  system  without  a  transverse  momentum 
equation. 


Equations  at  the  Stagnation  Point 

At  the  stagnation  point  of  a  blunt  cone  the  boundary-layer  equations 
have  a  removable  singularity.  In  the  limit  as  5  -+■  0  the  expressions  for 
5  and  n  are: 
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£(x)  =  Peye  due/dx  5(4/4  (62) 

and 

1/2  r  p/pe  dy  (63) 

J  0 

Also  at  the  stagnation  point  of  a  blunt  cone  the  expression  for  V  in  the 
windward  plane  continuity  equation  becomes: 


n(x,y)  = 


i 


2pe/ve 


due/dx 


V  = 


■ 

i 

i 


2peye 


A iS L 

airj 


TT72 


(64) 


In  addition  the  following  quantities  from  equations  (39)  and  (49)  take  on 
limiting  values  at  the  blunt  cone  stagnation  point  as  follows: 


6  =  1/2 
B,  =  1/2 
=  1/2 


(65) 


a  =  1 .0 

The  quantities  y-i ,  Yo>  and  a  froni  equations  (49)  need  not  be  taken  into 
account  at  the  blunt^cone  stagnation  point  since  the  equations  used  there 
are  fully  axl symmetric. 


2.4  EDDY  VISCOSITY  MODELS 

Prandtl's  mixing  length  hypothesis  states  that  the  eddy  viscosity  is 
the  product  of  some  characteristic  length  and  the  normal  velocity  gradient. 
The  characteristic  length  is  related  to  the  size  of  the  eddies  of  momentum 
flux  normal  to  the  body  and  is  called  the  mixing  length.  For  two-dimensional 
flow  this  concept  leads  to: 


e  =  pz*2  |au/ay|  (66) 

Prandtl's  studies  assumed  that  the  eddy  viscosity  should  depend  only'on 
local  eddy  scale  and  on  the  properties  of  turbulence.  Adams  (Ref.  15) 
extended  this  concept  to  the  three-dimensional  case  by  assuming  that  the 
eddy  viscosity  is  also  independent  of  coordinate  direction  by  writing  the 
component  of  turbulent  stress  terms  as: 


t j.  =  -puV  =  p£*2  aE/ay  au/ay  (67) 

lx 
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=  -pv'w1  =  P A*2  3E/3y  3u/3y  (68) 

where  E  is  some  scalar  function.  Therefore: 

e  =  ex  =  =  P**2  3E/3y  (69) 

The  total  shear  in  each  direction  is  written  as: 


Tx  =  y  3u/3y  -  pu'v'  =  y  3U/3y  +  ex  3U/3y 


(70) 


=  y  3w/3y  -  pw'v1  =  y  3w/3y  +  3w/3y 

therefore  the  total  resultant  shear  is  written  as: 

T  =  [T)<2  +  T*2]1/2  =  [(u  +  Ex)2  5U/3y  2  +  {v  +  c*)2 


(71 ) 


9w/3y 


211/2 
J  (72) 


Using  equations  (72)  and  (69)  the  total  resultant  shear  becomes: 


■][■ 


3E/3y  3u/3y  +  3w/3y 


211/2 


(73) 


By  analogy  with  the  two-dimensional  case  where  the  eddy  viscosity  expres¬ 
sion  incorporates  the  velocity  gradient  of  the  shear  component,  the  scalar 
E  becomes : 


r  2  211/2 

3E/3y ■=  3u/3y  +  3w/3y  J  (74) 

and 

e  =  Ex  =  =  p zj  [su/3y  2  +  3w/3y  2  ]  1/2  (75) 

which  reduces  to  the  two-dimensional  form  when  w  =  0.  This  is  referred 
to  as  the  invariant  turbulence  model  by  Hunt,  Bushnell ,  and  Beckwith 
(Ref.  20),  and  was  used  with  success  by  Adams  (Ref.  15). 

The  model  used  in  this  investigation  is  the  common  two-layer  inner- 
outer  model  which  uses  the  Prandtl  mixing  length  theory  and  the  Van  Driest 
or  Re'ichardt  damping  near  the  wall.  Following  Patankar  and  Spalding 
(Ref.  21)  and  Adams  (Ref.  15)  the  mixing  length  distribution  is  as  follows 
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**  =  k*  y  (0  <  y  xy^/ k*} 

**  =  *  y£  uy£/k* <  y>  (76) 

where 


k*  =  0.435 
X  =  0.09 

y£  =  y  when  [(u2  +  w2)/(ue2  +  wg2)]  =  0.99 


The  inner  law  is  damped  near  the  wall  so  as  to  yield  the  exact  laminar 
shear  stress  term  at  the  wall.  To  accomplish  this,  two  different  damping 
factors  have  been  used  in  this  investigation.  Van  Driest 's  damping  term 
with  local  shear  stress,  and  Reichardt's  (Ref.  39)  damping  term. 

Van  Driest's  damping  term  for  two-dimensional  flow  is: 


where  t  is  the  local  shear  stress  and  A*  is  26.0.  Therefore  the  total 
shear  near  the  wall  becomes: 

t  =  v  3u/3y+pk*2  y2  £l  -  exp  "y  ^  j  3u/3y  2  (78) 

for  two-dimensional  flow.  Again,  use  is  made  of  analogy  to  derive  the 
form  of  the  near  wall  shear  for  a  three-dimensional  flow.  By  analogy  of 
equation  (78)  with  equations  (73)  and  (74)  the  three-dimensional  form  of 
the  total  shear  becomes: 

2  2 

Ti  =  p  3E/ay  +  pk*2  y2  j*l  .-  exp  ^  ^  j  3E/3y  (79) 

or 

2 

=  pk*2  y2  £l  -  exp  -~y  ^P~j  3E/3y  (80) 

Cebeci  (Ref.  22)  developed  a  mass  transfer  correction  to  Van  Driest's 
inner  eddy  viscosity  law  by  modifying  the  damping  constant  A*.  For 
turbulent  flows  with  mass  transfer  Cebeci  determined  the  damping  constant 
to  be 


A*  =  26  exp  (-5.9  vw+) 


* 
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where 

vw+  = 


Reichardt's 
by  curve  fitting 


expression  for  the  inner  eddy  viscosity  law  was  obtained 
experimental  pipe  flow  data.  The  expression  is: 


-11.0  tanh 


(81) 


As  can  be  seen  this  expression  does  not  involve  the  velocity  gradient  terms. 
For  this  reason  it  is  preferred  for  use  in  numerical  solutions,  since  it 
usually  requires  fewer  iterations  to  converge. 


Following  equations  (75)  and  (76)  the  outer  eddy  viscosity  law  is: 


co  =  *2  h*  SE/8y 

and  the  total  shear  stress  is: 


(82) 


2 

t0  =  v  3E/ay  +  xz  yz  (aE/ay)  {a 

The  outer  eddy  viscosity  law  is  used  in  conjunction  with  the  Klebanoff 
(Ref.  23)  i ntermi ttency  factor  which  assures  a  smooth  approach  of  e  ■  to 
zero  as  y  ->  6.  The  modified  law  is:  0 


eo  =  *2  hZ  y  3E/3y  (84) 

where  y  is  Klebanoff 's  i ntermi ttency  factor: 

y  =  [l  +  5.5  (y/5)6]'1  (85) 

Schetz  and  Favin  (Ref.  24)  have  derived  a  correction  to  Reichardt's  inner 
eddy  viscosity  law  for  cases  of  mass  transfer.  This  correction  has  been 
used  in  the  current  investigation,  giving  this  corrected  expression  for 
the. inner  eddy  viscosity: 

Gi  =  ky  (1  +  vQ+  u+)1/2  (y+  -  ye+ .tanh  (y+/yfi+))  (86) 

where 


vo+  =  vw//V7p 
y+  =  y  /rp?y 
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and 


y  +  =  3.65/(v  +  +  0.344) 


The  quantity  u+  is  found  by  integration  of  the  expression 


du+  _ 


(1  +  v0+  u+) 


—  _ _  V 

d^+  r+  k  (1  +  v0+  u+)1/2  (y+  -  ye+  tanh  (y+/ye+)) 
or  using  equation  (86): 


(87) 


du+  _  (1  *  V  u*> 


dy 


TT  +  et) 


(88) 


Since  the  eddy  viscosity  ei  is  implicit  in  the  integration  for  u+,  the 
calculation  of  ej  is  an  iterative  procedure  for  mass  transfer  cases. 

2.5  TRANSITION  MODELS 

Two  models  of  transition  from  laminar  to  turbulent  flow  have  been  used 
in  this  investigation.  One  model  is  a  simply  instantaneous  transition  to 
turbulent  flow,  and  there  really  is  no  transition  region  or  zone  at  all. 

In  the  second  case  a  smooth  transition  to  turbulent  flow  occurs  over  a 
prescribed  distance.  This  distance  is  known  as  the  transition  zone  and  is 
defined  as  the  distance  between  the  onset  of  transition  at  x  =  X.  and  the 
beginning  of  fully  turbulent  flow  at  x  =  Xy  at  some  point  downstream. 

The  probability  of  turbulent  flow  at  any  point  is  expressed  by  a 
model  by  Dhawan  and  Narasimha  (Ref.  25)  as: 


If(x)  =  1  -  exp  (-$((X-Xt)/x)2) 
where  If(x)  is  the  transition  intermittency  factor, 

*  =  0.412 


(89) 


and 


X  =  Xt  -  X. 

*f  =  0.75  lf  =  0.25 


and  where 


!f(Xt)  =  0 


If(XT)  =  0.97 


(90) 
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By  substituting  equation  (90)  into  (89)  an  expression  for  x  can  be  found 
based  on  the  transition  zone  length: 


x  =  (XT  -  Xt)/2.917  (91) 

Now,  substituting  (91)  back  into  (89)  the  final  expression  for  the  transi¬ 
tion  intermittency  factor  as  used  in  this  investigation  is  obtained: 

If(X)  =  1  -  exp  [  0.412  (2.917)2((X-Xt)/(XT-Xt))2]  (92) 

The  transition  intermittency  factor  is  employed  as  a  simple  multiplier  of 
the  eddy  viscosity  in  the  governing  equations  and  therefore  acts  as  a 
damping  coefficient  for  the  fully  turbulent  eddy  viscosity.  It  is  an 
expression  relating  the  fraction  of  time  any  particular  point  spends  in 
turbulent  flow,  and  therefore  the  probability  of  turbulent  flow  existing 
at  that  point. 


2.6  TURBULENT  PRANDTL  NUMBER  LAWS 

Five  different  turbulent  Prandtl  numbers  have  been  provided  for  in 
this  investigation.  One  of  the  models  employs  a  constant  Prandtl  number: 

Prt  =  0.9 

as  recommended  by  Patankar  and  Spalding  (Ref.  21)  for  two-dimensional 
boundary-layer  flows.  Other  authors  have  derived  models  for  the  distri¬ 
bution  of  the  turbulent  Prandtl  number  normal  to  the  wall.  These  models 
show  the  Prandtl  number  varying  from  near  0.8  at  the  wall  to  nearly  1.4 
at  the  outer  edge.  The  models  presented  here  are  by  Rotta;  Shang;  Meier, 
Voisinet  and  Gates;  and  by  Cebeci. 

Rotta  (Ref.  26)  has  suggested  an  empirical  formula  for  the  turbulent 
Prandtl  number  distribution  as  follows: 

Prt  =  0.95  -  0.45  (y/6)2  (93) 

which  gives  a  value  of  0.5  at  the  outer  edge  and  0.95  near  the  wall. 

A  similar  empirical  formula  was  developed  by  Shang  (Ref.  27)  to  study 
the  sensitivity  of  a  solution  to  the  turbulent  Prandtl  number: 

Prt  =  Pr1  exp  (-10  (y/6))  +  Pr2  (1  -  0.2  (y/fi))  (94) 


where 


0.2  <_  Pr-j  £  0.4  and  0.8  <_  Pr2  <_  1.0 
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Shang's  formula  allows  the  user  to  specify  the  constants  in  the  formula, 
so  that  the  difference  in  the  values  at  the  wall  is  between  1.0  and  1.4  and 
between  0.65  and  0.95  at  the  outer  edge.  Both  Rotta's  and  Shang's  formulas 
fall  within  the  turbulent  Prandtl  number  uncertainty  envelope  as  established 
by  Simpson  et  al .  (Ref.  28).  Shang's  data  follow  the  boundaries  of  Simpson's 
envelope  very  well  at  both  the  upper  and  lower  boundaries,  while  Rotta's 
formula  falls  between  the  boundaries  in  the  outer  region  and  undershoots 
Simpson's  lower  boundary  at  the  wall. 


Meier  et  al.  (Ref.  29)  applied  Prandtl 's  mixing  length  concept  as 
modified  by  Van  Driest  to  define  a  mixing  length  for  both  turbulent  momentum 
and  heat  transport.  Writing  the  turbulent  Prandtl  number  based  on  mixing 
lengths  that  produced  the  following  expression: 


k  (1  -  exp  (V/A)) 
kq  (1  -  exp  ( -y+/Aq ) ) 


2 


The  limiting  case  as 


+ 

y 


»  is: 


(95) 


Prt  ■  (K/Kq)2 

The  limiting  case  as  y  ->0  is  found  by  series  expansion  of  equation  (95) 
to  be: 

Prt  =  Prt  (A  /A)2 

where : 

\ 

A  =  26.0,  y+  =  ,  and  k  =  0.4 

Aq  =  34.4  lcq  =  0.447 

Using  this  Prandtl  number  model,  Meier  et  al .  found  they  could  accurately 
describe  experimental  temperature  distributions  from  the  wall  up  to  the 
fully  turbulent  part  of  the  boundary  layer. 


Cebeci  (Ref.  30)  based  his  model  of  the  turbulent  Prandtl  number  on 
the  considerations  of  a  Stokes  type  flow.  In  Cebeci's  model  the  Prandtl 
number  is  strongly  affected  by  the  molecular  Prandtl  number  near  the  wall, 
and  is  a  constant  away  from  the  wall.  Cebeci's  model  for  the  turbulent 
Prandtl  number  is: 


_  km  0  -  exp  (-y/A)) 
Prt  '  kh  H  -  exp  (-y/B)) 


(96) 


where 


A  =  26  + 


14 


1  +  Z‘ 


k  =  0.4  + - 9-’-19  - 

m  1  +  0.49  ld 
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!  35  + - — - 9 

1  +  0.55  lc 

A  -  A+v(ts/p)"1/2, 


k  =  0.44  +  - ---?  >, 

n  1  +  0.42  T- 

B  =  B+v  (ts/p)"1/2 


In  these  expressions  (ts/p)1/2  is  the  friction  velocity  at  the  edge  of  the 
sublayer.  The  value  Z  is: 

Z  =  Re„  x  10'3 
0 


Cebeci's  study  using  this  Prandtl  number  model  showed  good  agreement  with 
experiment  and  also  confirmed  that  mass  transfer  has  no  effect  on  the 
turbulent  Prandtl  number. 


2.7  FLUID  PROPERTIES 


The  development  of  the  fluid  property  calculations  in  this  investigation 
follow  closely  those  of  Jaffe,  Lind,  and  Smith  (Ref.  10).  Fluid  properties 
are  developed  for  a  binary  gas  mixture  consisting  of  either  helium,  argon, 
or  carbon  dioxide  being  injected  into  a  free  stream  of  air. 

The  fluid  properties  necessary  to  this  investigation  are  Cpf,  Cp., 

Cp ,  Cv.p,  Cv.. ,  0^ ,  h,  h. ,  Fy;  k^,  >  ks  ii^  i  y,  and  D^. . 

The  mixture  of  gases  is  composed  of  perfect  gas  species  where  the  total 
pressure  is  equal  to  the  sum  of  the  partial  pressures  of  the  individual 
species  and  where  the  specific  enthalpies  are  functions  of  temperature  only. 
Individual  species  molecular  weights  are  necessary  to  calculate  the  mixture 
density  from  the  following  expression: 


where 


1 — 

s: 

/slugs  \ 

Lcf  -  V  +"f  J 

Mf  =  Mair  =  28,966 

Mi  =  Mftr  =  39.948 

MHg  =  4.0026 

MC02  =  44 -00995 


(?7) 


27 


AEDC-TR-75-55 


The  specific  heat  capacities  at  constant  pressure  and  at  constant  volume  are 

cp  =  0  -  Cf)  Cp>  +  Cf  C  (98) 

Cy  =  (1  -  Cf)  C  +  Cf  C  (99) 

The  heat  capacities  at  constant  pressure  for  carbon  dioxide  and  air  are 
obtained  from  a  polynomial  as  follows: 

C  =  A  +  BT  +  CT2  +  DT3  +  ET4  +  FT5  (  ^  (100) 

pj  \sec^  or  J 

Coefficients  A  through  F  are  given  in  Table  I.  The  coefficients  in  the 
polynomial  are  valid  for  temperatures  from  0°  to  12,000  °R  for  air,  and  from 
0°  to  6300  °R  for  carbon  dioxide.  For  the  monotonic  gases,  helium  and  argon 
the  heat  capacities,  are  obtained  from: 


v  =  3/2  R/M. 
j  J 

(101) 

pj =  S  +  R/MJ 

(102) 

due  to  the  fact  that  the  translational  mode  is  the  only  contribution. 

For  air  and  carbon  dioxide  the  specific  enthalpies  are  obtained  from 
the  integral: 


*  i  s 


dT 


(103) 


where  this  integral  is  approximated  by  the  integral  of  equation  (100)  so 
that: 


ET5  FT6  /ft2  \ 

5  6  Uc2/ 


(104) 


The  specific  enthalpies  for  helium  and  argon  are: 

j.2 

h.  = 


j  =  C  T 
J  pj  \sec2  / 


(105) 


The  mixture  enthalpy  is  obtained  from  the  specific  enthalpies  and  the 
respective  mass  fractions: 


h  =  (1  -  Cf)  hj  +  C^r  hf 


006) 
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The. viscosity  of  a  mixture  is  calculated  from  Wilke's  (Ref.  31)  formula 
as  follows: 


where: 


y  = 


+  si. 


0^7X71  1  +  Gf,  (X(/Xf) 


(107) 


O  -  Cf)/M. 

Xi  =  Cf/Mf  +  (1  -  Cf)/M. 


Cf/Mf 

xf =  c 

and 

G.  =  Vft  (1  +  )-'/2  (1  ♦  (v,/Uf)1/2  (Mf/M,)174)2 

The  individual  specie  viscosities  have  all  been  fit  to  a  fifth 
degree  polynomial  similar  to  that  used  for  the  heat  capacities: 


yj  =  A  +  BT  +  CT2  +  DT3  +  ET4  +  FT5  |ec  ^  (108) 

Coefficients  A  through  F  are  given  in  Table  II,  and  are  valid  for  the 
same  temperature  ranges  as  given  for  the  heat  capacities. 


The  thermal  conductivity  of  a  mixture  is  obtained  from  Wilke's 
formula  (107)  in  which  the  individual  specie  viscosities  are  replaced 
with  the  individual  conductivities.  The  individual  specie  thermal  con¬ 
ductivities  are  calculated  with  the  Eucken  (Ref.  32)  equation: 


(109) 


The  calculation  of  the  binary  diffusion  coefficient  has  also  been  fit 
to  a  fifth  degree  polynomial : 


PDf .  =  A  +  BT  +  CT2  +  DT3  +  ET4  +  FT5 


(no) 


where  P  is  the  local  pressure  and  coefficients  A  through  F  are  given  in 
Table  III.  Applicable  temperature  ranges  are  the  same  as  those  for  vis¬ 
cosity  already  given. 
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The  polynomial  coefficients  given  in  Tables  I-III  are  taken  from 
tables  developed  by  Lewis,  Adams,  and  Gilley  (Ref.  11),  and  by  Jaffe, 

Lind,  and  Smith  (Ref.  10).  Lewis  et  al .  extended  the  data  of  Jaffe  et  al . 
to  a  maximum  temperature  of  12,600  °R  for  helium  and  argon.  The  original 
data  of  Jaffe  et  al .  for  carbon  dioxide  to  6300  °R  has  been  used  in  this 
investigation. 


2.8  FINITE-DIFFERENCE  METHOD 


The  finite-difference  method  used  in  this  investigation  follows  the 
method  used  by  McGowan  and  Davis  (Ref.  4),  which  is  similar  to  the  method 
developed  by  Dwyer  (Ref.  6)  with  modifications  by  Krause  (Ref.  19).  The 
method  has  been  further  modified  to  include  variable  spacing  for  the  normal 
coordinate.  The  accuracy  of  this  method  is  of  order  a*  where  A  is  as  or 
A<ji.  The  method  is  stable  for  negative  transverse  velocities  when  proper 
step  sizes  are  chosen. 


The  momentum,  species,  and  energy  equations  are  written  in  standard 
parabolic  form  as: 


A0^y 

3n 


A,  |*U 
1  3n 


AgW 


A3  + 


A  M  + 

A4  H 


aw 

a<t> 


=  0 


(111) 


and  wis  the  dependent  variable  in  each  case.  Using  equations  (45)  through 
(48)  and  equations  (57)  through  (60)  the  coefficients  A„  through  Ag  are 
determined  as  follows:  u  5 


Streamwi se 

Momentum 

General 

Wi ndward 

A0 

-«*  n 

ie 

-Jt  SI 

A1 

V  -  i*'  n 

* 

V  -  SL  '  i 

A2 

6  y-i  g'  +  fl 

•l  fl 

A3 

-&1  x  +  e1  (a2  x-g'2)  -  SaY]  X 

-6i  X 

A4 

2Sf 1 

2sf' 

A5 

<59* 

0 
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Transverse 

Momentum 

General 

Windward 

A0 

-a*  n 

-£*  R 

A1 

V  -  £*'  R 

V  -  £*'  £1 

A2 

f’  +  e-|)  +  sy-jQ  ' 

f  (B-j  +  e-j )  +  fig 

A3' 

-6ay2x  -62X  -Ejox 

fie3  x 

A4  ’ 

i- 

Uf 

CM 

2?f' 

A5 

«sg' 

0 

Species 

Equation 

General 

Windward 

A0 

-£***  n  Le/Pr 

-£***  £1  Le/Pr 

A1 

V  -  (£***  Le/Pr)'  fi  • 

V  -  (£***  Le/Pr)' 

A2 

0 

0 

A3 

0 

0 

A4 

25f' 

25f' 

A5 

fig' 

0 

Energy 

Equation 

General 

Windward 

A0 

-£**  fi/Pr 

-£**  n/Pr 

A1 

V  -  (£**/Pr)'  n 

V  -  (£**/Pr) '  r 

A2 

0 

0 
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Energy 

Equation 


General 


Windward 


BT 


a_ftt**  .*(L,  sf ' 

Pr  '  *  j jf  &n 


+  9' 


3n 


+  J!5-  n  —-lit***  -  I—  ^  (h. 


He  "  an 


Pr  "  Fr”  i 


f"M  aj] 


-  Fr~}(hfh1 )  f^] 


2?f' 


fig' 


2?f 1 


The  derivatives  in  equation  (111)  are  replaced  with  finite  difference 
expressions  which  are: 


afw  =  2X  (w2,n+2  '  ^  +  k)  w2,n  *  k  w2,n-l^ 

<Vl  ■  "n)2  +  k  ^nn  ■  Vl>2 


3n 


+  2  (1  -  X) 


(w3.n+l  -  (1  +  k)  w3.n  +  k  w3,n-l> 

<Vl  '  nn)2  +  k  K  ‘  Vl>2 


(112) 


3w  _  .  <w2,n+l  ~  t1  -  k2>  w2.n  ~  ^  w2.n-l) 

9n  /_  _  \  j.  l2 


^n+1  '  "n)  +  k  ("n  '  Vi ] 


+  ^  ~  x2  ^W3.rn-l  '  ^  *  k^  w3.n  ~  1,2  w3.n-l^ 
<Vl  ■  "n5  +  k2  (nn  ■  nn-l ^ 


W  *  A  W,  „  +  (1  -  x)  W- 

t,n  3»n 


013) 

(114) 
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3w  _  w2,n  "  w3,n 
H  "  A£ 


015) 


(w«  -  W»  )  +  (Wi  “  w,  ) 

%■  M  Hm  '  '  .  016) 

where  k  =  (v,  -  *„)/(.,„  -  Vl). 

Subscripts  refer  to  grid  locations  as  indicated  in  figure  1,  which 
shows  the  finite  difference  grid.  The  weighting  factor,  A,  indicates  a 
fully  implicit  solution  when  set  to  1  and  a  Crank-Nicolson  averaging 
solution  when  set  to  1/2. 

By  substituting  equations  (112)  through  (116)  into  equation  (111)  a 
finite  difference  form  of  eq.  (Ill)  is  obtained: 


where 


Aw,, 

n  z,n-l 


+  B  w„  +  C  Wo  . , 
n  2,n  n  Z,n+1 


(117) 


A 


t1+k)  jgn  (1-k2) 


Dn 


-n  -  a) 

A 


A  Wo 

n  j, 


n-1  +  Cn  w3 , n+1 


+  BB 

n 


+  ac"  w3,n  +  2a"  (wl,n  '  w4,n  +  w3,n* 


N2  =  (Vl  "  V  +  k  \  -  nn-l  ^ 
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nn)  +  k 


nn-l 


) 


Three  special  cases  of  this  general  procedure  take  advantage  of 
similarity  in  the  €  and  $  directions.  At  the  tip  of  a  sharp  cone  where 
there  is  no  variation  with  £  the  above  scheme  is  used  in  the  transverse 
or  cross  flow  direction  and  the  derivatives  are  replaced  by: 


i_w  =  2\  . 

3n2  N2  *  2’n+1 


(1  *k)%*kw2,n.,)*^(«,i 


n+1 


12  =  L.  (w 

an  N,  'w2,n+l 


-  O+k)  (wln  +  k  wln)) 
-  (1  -  k2)  w2  |)  -  k2  «2>n_1 )  +  («1>n+1 

'  (1-k2)  wl,n  -  "S.n-l5 


(118) 


(119) 


w-xw2jn+(X-l)wi>n 


(120) 


aw  _  Q  3w  _  w2,n  ~  wl,n 
’  3<|>  ~  A(j> 


021) 


The  governing  equations  are  now  written  in  the  standard  form  with  A4  =  0 
and  substitution  of  equations  (118)  through  (121)  into  equation  (111) 
yields  equation  (117)  where: 


K  ■  +  *5/* 
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+ 


M 

A 


(A  w,  n  ,  +  BB„  w,  +  C„  w,  „.,) 

n  l,n-l  n  1  ,n  n  l,n+r 


Along  the  windward  streamline  similarity  exists  with  respect  to  <J> .  In 

this  case  the  general  scheme,  equation  112-115  is  used  with  Ac  =  0. 

3n 

When  similarity  exists  in  both  variables  such  as  the  stagnation  point 
of  a  blunt  cone  or  a  sharp  cone  a  fully  implicit  set  of  ordinary  differen¬ 
tial  equations  is  used.  In  this  case  the  general  procedure  is  again  used 

with  a  =  1,  and  Aa  =  Ac  =0. 

n  ®n 

Equation  117  results  in  simultaneous  linear  algebraic  equations  of 
tridiagonal  form  which  are  solved  by  a  method  developed  by  Richtmyer 
(Ref.  33).  The  boundary  conditions  at  both  the  wall  and  the  outer  edge 
must  be  specified  for  this  method.  The  general  solution  to  equation  (117) 


where 


w«  =  E  w0  ,  +  F 
z,n  n  2,n+l  n 


2  <  n  <  N  -  1 


(122) 


En  =  K  En  i  +  Bn 

n  n- 1  n 


+  Bn 


By  using  the  wall  boundary  conditions  the  values  of  E  and  F  are  found: 

n  n 

En'° 


Fn  =  0,  0,  for  f',  g',  and  e  respectively. 


Using  the  outer  edge  boundary  conditions  allows  the  calculation  of  W„  , 
thereby  completing  the  profile.  d*n~' 

The  ability  to  variably  space  the  normal  grid  allows  closer  spacing 
of  grid  points  near  the  wall  where  variations  in  properties  are  greater. 

The  method  used  is  taken  from  Cebeci,  Smith,  and  Mosinskis  (Ref.  34)  and 
has  been  successfully  used  by  Anderson  and  Lewis  (Ref.  8)  and  Adams  (Ref.  15). 

Using  this  procedure  results  in  a  constant  ratio  of  succeeding  normal 
grid  intervals  such  that: 
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k  = 


Ann-1 


(123) 


Therefore  the  value  of  n  at  infinity  is  given  by: 

kN-l 
=  An,  pr 

where  N  is  the  total  number  of  Intervals  across  the  layer. 


2.9  BOUNDARY-LAYER  PARAMETERS 


Local  boundary-layer  parameters  are  determined  at  a  given  point 
following  the  converged  solution  of  the  boundary-layer  equations  at  that 
point.  These  parameters  include  heat  transfer,  heat- transfer  coefficients, 
skin-friction  coefficients,  displacement  thicknesses  and  momentum  thick¬ 
nesses. 


The  heat  transfer  at  the  wall  is: 


p  D, 


9Cf  (  ft-lb  \ 
1  9y  .  w  \ft2-sec  / 


(124) 


In  transformed  variables  this  becomes: 


kw  3n 

CPw  3y 
w  w 


025) 


Coefficients  associated  with  the  heat  transfer  at  the  wall  are: 


Local  Heat  Transfer  Coefficient 


Q  =  q  /p  U  3  (126) 

VW  ^W  °0  »  v  4 


Heat-Transfer  Coefficient  Based  on  Free-Stream  Conditions  and  Adiabatic 
Mall  Enthalpy 


or 


-q 


w 


p»  uo.  ^aw  "  Hw} 


Ch 


(127) 
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and 


Taw  ■  To  "f  +  T-  -  rf> 


r^  =  v'Fr'  for  laminar  flow 


rf  =  3vfr  for  turbulent  flow 


Heat  Transfer  Coefficient  Based  on  Edge  Conditions  and  Adiabatic  Wall 
Enthalpy; 


Ck.  = 


-q 


w 


he  -  p6  ue  (Haw  -  V 


or 


'w 
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Stanton  Number  Based  on  Free-Stream  Conditions: 


St  = 


-q, 


w 


»„  (He  - 


or 


St  = 


-q, 


w 


*>  p  ""u  H_  (1  -  0,.} 

to  oo  e  w 


(128) 


(129) 


Stanton  Number  Based  on  Edge  Conditions: 


St  = 
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(130) 


Skin-friction  coefficients  are  based  on  the  calculation  of  the  skin 
friction  in  the  free-stream  and  transverse  directions  as  follows: 


V  =  uw  au/ay 


(131) 
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Tw  =  yw  3w/8y 


0  32} 


In  transformed  variables  these  become: 


w. 


rpe  ye  ue  r 
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(133) 


On  II  U  r 

T  =  iAj - |Si  /!■>  \where  g'  =  *-  and  «•  =  -EH-  (134) 
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Skin-friction  coefficients  are  defined  as  follows: 
Based  on  Free-Stream  Conditions: 
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Based  on  Edge  Conditions 
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036) 


The  physical  normal  distance  across  the  boundary  layer  is  found  from: 


y  = 


fit 


pq  uo  r 
e  e  j  o 


f’r 

J  0 


dn  (ft) 


(137) 


which  can  be  evaluated  using  the  trapezoidal  rule. 

The  compressible  two-dimensional  boundary-layer  displacement  thickness 
is  used  to  obtain  the  displacement  thickness  in  each  of  the  two  directions: 


•!['-*] 
■f  [-*] 


dy 

(ft) 

(138) 
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(139) 
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or  in  transformed  variables: 
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041) 


it  it 

Neither  6  or  6*  completely  define  the  actual  displacement  thickness  at 
any^point?  For  axi symmetric  bodies  Cebeci  and  Mosinskis  (Ref.  35)  define 
a  6  as  a  function  of  6  *  For  a  sharp  cone  at  angle  of  attack  an  expres¬ 
sion  for  <S  on  the  windward  stream-line  only  was  developed  by  Moore  (Ref.  36) 
as  a  function  of  both  $x*  and  6^  . 

Momentum  thicknesses  have  been  defined  similar  to  the  displacement 
thicknesses  for  both  directions: 


(ft) 

(142) 
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(ft) 

(143) 

or  in  transformed  variables: 
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(145) 

The  boundary-layer  thickness  is. defined  as  the  value  of  y  at  which 
f1  =  0.995.  This  value  is  determined  by  interpolation  in  the  y(n)  profile. 
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SECTION  III 

RESULTS  AND  DISCUSSION 


Figures  2  through  8  present  some  boundary-layer  solutions  as  calculated 
by  the  computer  program  described  in  this  report.  Solutions  are  presented 
for  both  sharp  and  blunt  cones  at  zero  and  non-zero  angles  of  attack  and 
with  mass  transfer  and  transition  to  turbulence. 

Figure  2  shows  calculations  made  for  a  sharp  cone  at  zero  angle  of 
attack  in  hypersonic  laminar  flow.  This  is  the  same  cone  solved  by  Jaffe, 
Lind,  and  Smith  in  reference  10;  however,  the  species  equation  wall  boundary 
condition  has  been  corrected  in  the  current  calculations.  The  current 
results  are  compared  to  results  obtained  from  the  Miner,  Anderson,  Lewis 
axisymmetric  computer  program  (Ref.  14),  which  also  uses  the  corrected 
boundary  condition  for  the  species  equation. 

In  figure  2a  the  concentration  of  air  at  the  wall  is  plotted  versus 
the  nondimensional  slant  length.  The  results  for  argon  and  carbon  dioxide 
show  complete  agreement  between  the  present  results  and  those  from  Ref.  14. 
Excellent  agreement  is  also  obtained  with  helium  injection  at  a  lower  injec¬ 
tion  rate. 

A  sharp  drop  in  the  wall  heat  transfer  rate  is  shown  in  the  mass  transfer 
area  of  the  cone  in  figure  2b.  In  figures  2b  through  2e  no  plottable  differ¬ 
ences  were  observed  between  the  current  results  and  those  of  reference  14. 
Figure  2c  shows  the  effect  of  mass  transfer  on  the  longitudinal  skin  friction 
coefficient.  Again  a  significant  decrease  in  skin  friction  is  gained  b,y 
mass  transfer  over  the  cone  afterbody.  Injection  of  air  is  seen  to  have 
the  most  effect  on  the  skin  friction,  with  argon  and  carbon  dioxide  having 
identical  effects.  This  trend  of  data  was  also  observed  in  Ref.  10.  Jaffe 
et  al .  point  out  in  Ref.  10  that  when  considering  the  effect  of  a  foreign 
gas  on  the  skin  friction  coefficient  one  must  take  into  account  not  only 
the  molecular  weight  of  the  gas  but  the  heat  capacity  as  well.  Therefore, 
while  the  molecular  weight  of  carbon  dioxide  is  higher  than  that  of  argon, 
its  higher  heat  capacity  causes  a  lower  temperature  distribution  and  a 
slightly  greater  effect  on  the  skin  friction.  This  effect  is  not  plottable 
in  these  figures  but  is  evidenced  by  the  actual  numbers. 

A  similar  heat  capacity  effect  is  caused  relative  to  the  heat  transfer 
rate  at  the  wall.  The  heat  transfer  calculation  contains  a  temperature 
gradient  term  and  a  concentration  gradient  term.  When  a  foreign  gas  is 
introduced  at  the  wall,  and  it  has  a  specific  heat  greater  than  that  of 
air,  the  concentration  gradient  will  contribute  to  a  transfer  of  heat  from 
the  surface,  thereby  lowering  the  heat  transfer  to  the  surface.  Therefore, 
the  best  coolant  under  particular  conditions  would  be  the  gas  with  the 
highest  specific  heat.  ■  The  curves  for  Stanton  number  confirm  this  in 
figure  2b.  Of  the  three  gases  carbon  dioxide,  which  has  the  highest 
specific  heat,  has  the  most  effect  on  the  Stanton  number.  Next  is  air  and 
then  argon  in  the  order  of  decreasing  specific  heats. 
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The  displacement  thickness  is  plotted  for  air*  argon,  carbon  dioxide 
and  no  injection  in  figure  2d.  The  effect  of  mass  .'transfer  is  to  increase 
the  displacement -thickness  in  the  region  of  injection.  There  is  no  plottable 
difference  in  displacement  thickness  in  this  region  for  argon  and  air  injec¬ 
tion.  As  expected  the  heavier  gases  have  a  smaller  effect  on  the  displacement 
thickness  for  a  given  mass  transfer  rate.  The  heat  capacities  of  the  injected 
gases  also  play  a  part  in  the  displacement  thickness  by  influencing  the 
density  profile  through  the  temperature.  .A  cooler  temperature  profile  should 
contribute  to  the  decreasing  of  the  displacement  thickness.  Figure  2d  shows 
the  displacement  thickness  for  carbon  dioxide  being  smaller  than  for  air  or 
argon,  which  probably  reflects  the  specific  heat  effect  as  well  as  the 
effect  of  molecular  weight  on  blowing  rate. 

Figure  2e  shows  the  air  concentration  profiles  for  argon  and  carbon 
dioxide  injection  at  the  end  of  the  cone.  The  heavier  gas,  carbon  dioxide 
has  a  higher  concentration  near  the  wall,  but  argon  has  a  higher  concentra¬ 
tion  near  the  outer  edge  of  the  boundary  layer. 

In  figure  3  the  results  for  a  blunt  cone  at  zero  angle  of  attack  and 
with  mass  transfer  are  compared  to  the  results  obtained  by  Lewis,  Adams, 
and  Gilley  (Ref.  11).  The  data  of  reference  11  includes  the  effects  of 
transverse  curvature  (TVC),  and  therefore  a  one  to  one  comparison  of  data 
with  the  present  results  is  not  possible.  However,  the  trend  of  the  data 
and  the  effects  of  TVC  on  the  solutions  can  be  observed. 

In  reference  10  the  authors  report  on  the  effects  of  TVC  on  the  results 
obtained  for  mass  transfer  over  a  sharp  cone.  They  report  that  the  effects 
are  significant  and  increase  with  decreasing  molecular  weight.  Solutions 
were  shown  to  yield  higher  values  of  skin  friction  and  heat  transfer,  and 
lower  values  of  the  displacement  thickness  when  TVC  was  included.  Probstein 
and  Elliot  (Ref.  41)  make  the  observation  that  the  addition  of  the  TVC 
terms  to  the  governing  equations  causes  behavior  similar  to  that  produced 
by  a  favorable  pressure  gradient. 

The  results  of  reference  10  as  well  as  the  present  results  confirm 
the  observations  of  Probstein  and  Elliot.  In  figure  3a  the  concentration 
of  air  at  the  wall  is  plotted  versus  surface  distance  for  argon  and  helium 
injection  over  a  blunt  cone.  The  pressure-gradient-like  effect  of  the 
TVC  present  in  reference  11  yields  a  slightly  higher  air  concentration  at 
the  wall  for  both  gases.  A  slightly  larger  difference  between  present 
results  and  those  of  reference  11  is  seen  for  the  injection  of  helium,  the 
lighter  gas. 

The  effects  of  the  higher  injection  rate  for  argon  are  evident  in 
figure  3.  The  argon  concentration  approaches  100%  near  the  end  of  the  cone. 
The  resulting  significant  decreases  in  heat  transfer  and  skin  friction  are 
shown  in  figures  3b  and  3c.  The  effect  of  TVC  on  the  results  is  also 
evident  in  these  two  figures;  as  observed  in  reference  10  the  inclusion 
of  TVC  increases  both  heat  transfer  and  skin  friction  for  a  given  injected 
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gas.  The  displacement  thickness  data  are  presented  in  figure  3d.  The 
effects  of  TVC  observed  for  the  sharp  cone  by  Jaffe,  Lind,  and  Smith 
(Ref.  10)  are  not  evident  in  this  figure  since  the  present  results  yield 
a  smaller  thickness  than  the  results  reported  in  reference  11.  The  higher 
injection  rate  of  argon  is  responsible  for  the  greater  thickness  relative 
to  the  helium  injection  curve.  Differences  in  the  calculation  of  the  dis¬ 
placement  thickness  between  the  present  program  and  that  used  in  reference 
11  are  probably  responsible  for  the  turnabout  in  the  relative  thicknesses 
for  TVC  and  no  TVC;  however,  the  important  fact  Is  that  the  trend  of  the 
data  is  the  same  in  both  cases. 

Figures  4  and  5  show  the  comparison  of  fully  three-dimensional  solu¬ 
tions  using  the  present  program  and  the  experiment  of  Cleary  (Ref.  40). 
Cleary  presented  rather  complete  heat  transfer  data  for  both  sharp  and 
blunt  cones  at  angle  of  attack  in  laminar  flow.  Points  were  chosen  on  the 
afterbody,  and  comparison  is  made  in  the  circumferential  direction  for  the 
heat  transfer  rate  at  the  wall.  Reasonably  good  agreement  has  been 
obtained  for  these  cases.  These  figures  show  the  dropping  of  the  leeward 
solution  plane  for  the  sharp  cone  flow,  and  for  the  blunt  cone  flow  far 
downstream.  Similar  problems  were  reported  by  McGowan  and  Davis  (Ref.  4), 
and  Adams  (Ref.  5).  Difficulties  on  the  leeward  ray  have  been  attributed 
to  defects  in  the  boundary-layer  model  as  applied  to  leeward  ray  flows  of 
cones  at  angle  of  attack.  This  problem  is  discussed  by  Moore  in  reference 
17. 


Figure  6  presents  heat-transfer  data  and  profile  data  for  regions  of 
laminar  and  turbulent  flow  for  a  sharp  cone  at  angle  of  attack.  The  cone 
used  in  these  solutions  is  the  one  used  by  Adams  (Ref.  15)  in  his  figure  6 
of  that  report.  The  present  results  were  obtained  using  the  Reichardt 
inner  eddy  viscosity  law.  This  law  was  chosen  over  the  Van  Driest  law  due 
to  the  time  consuming  nature  of  the  Van  Driest  law. 

In  figure  6a  present  wall  heat-transfer  rate  data  are  compared  to  the 
results  obtained  by  Adams.  Differences  in  the  results  are  almost  certainly 
attributable  to  the  fact  that  the  present  program  uses  variables  property 
air  and  Adams  does  not.  Some  small  differences  can  be  expected  as  a  result 
of  using  two  different  viscosity  laws. 

Profile  data  for  the  same  cone  at  both  zero  and  non-zero  angles  of 
attack  are  presented  in  figures  6b  through  6d.  Present  results  at  zero 
angle  of  attack  are  compared  to  data  obtained  from  the  Miner  et  al.  program 
(Ref.  14).  Non-zero  angle  of  attack  data  are  compared  to  Adams  (Ref.  15). 
Zero  angle  of  attack  results  from  ref.  14  are  also  obtained  using  the 
Reichardt  law.  Data  for  this  case  are  shown  where  the  flow  is  approximately 
83%  turbulent.  Differences  in  results  are  attributable  to  the  higher  value 
of  n^,  used  in  the  program  of  ref.  14. 

Non-zero  angle  of  attack  data  are  presented  for  locations  S/L  =  0.4 
for  laminar  flow,  and  S/L  =  1.0  for  turbulent  flow.  Differences  in  the 
actual  data  are  attributable  to  the  different  calculations  of  fluid 
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properties  and  eddy  viscosity  laws  already  discussed.  Fuller  profiles  and 
a  thicker  boundary  layer  are  turbulent  flow  characteristics  also  evident 
in  these  profile  figures. 

Figure  7  presents  computer  drawn  plots  without  comparison  for  the  cone 
and  conditions  of  figure  6.  In  this  case  a  fully  three-dimensional  solu¬ 
tion  was  obtained  using  13  planes  in  the  transverse  direction.  A  complete 
solution  was  obtained  for  this  case  In  97  minutes  and  In  296K  of  core  on 
the  VPI&SU  370/158  IBM  digital  computer.  Transition  to  turbulence  occurs 
over  the  last  half  of  the  vehicle  and  Is  complete  at  S/L  =  1.0.  The  effect 
of  using  the  large  transverse  step  size  can  be  seen  in  the  circumferential 
plots  as  a  loss  of  smoothness  near  the  leeward  streamline. 

Data  in  figure  7  are  presented  in  three  different  ways;  1)  data  versus 
$,  the  transverse  coordinate,  at  three  different  values  of  S/L,  2)  data 
versus  S/L,  the  streamwise  coordinate,  at  three  different  values  of  $,  and 
3)  data  versus  Y/L,  the  normal  coordinate,  at  constant  values  of  S/L  and  <|>. 
In  this  way,  heat  transfer,  skin  friction,  displacement  thickness,  boundary- 
layer  thickness,  and  eddy  viscosity  are  presented  as  they  vary  in  both  the 
streamwise  and  transverse  direction. 

The  final  two  figures  presented  show  the  turbulent  Prandtl  number 
profiles  and  corresponding  temperature  profiles  for  each  of  the  turbulent 
Prandtl  number  laws  included  in  the  program.  Figure  8a  shows  the  four 
Prandtl  number  profiles  versus  Y/5  for  the  conditions  and  geometry  of 
figure  6,  also  using  the  Reichardt  law.  The  Prt  is  seen  to  vary  from  1.38 
to  0.95  at  the  wall,  and  from  0.9  to  0.45  at  the  outer  edge.  The  corre¬ 
sponding  temperature  profiles  show  that  there  is  little  effect  on  the 
temperature  profile  due  to  varying  the  turbulent  Prandtl  number.  The 
slightly  higher  temperatures  correspond  to  the  higher  Prandtl  number  pro¬ 
files.  No  plottable  differences  were  obtained  in  boundary-layer  parameters 
such  as  skin  friction,  heat  transfer,  and  displacement  thickness  due  to 
varying  the  Prt  law.  Shang  (Ref.  27)  concluded  that  there  was  a  very  weak 
dependence  of  boundary-layer  parameters  on  turbulent  Prandtl  number 
He  cited  a  6%  change  in  skin  friction  and  heat  transfer  rate  corresponding 
to  a  40%  change  in  turbulent  Prandtl  number. 

Following  is  a  table  of  approximate  time  and  core  requirements  for 
running  various  cases  using  the  present  program  on  an  IBM  370  System  - 
model  158  digital  computer  as  installed  at  VPI&SU  in  Blacksburg,  Virginia. 
Sizable  savings  can  be  had  in  core  requirements  by  not  utilizing  the 
plotter  package.  Details  on  this  can  be  obtained  in  the  Appendices. 
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Approximate  Time  and  Core  Requirements 


CASE 

TIME2 

(MIN.) 

CORE1 

W/ PLOTS 

CORE1 

W/0  PLOTS 

4'  sharp  cone,  a  =  0°, 
w/transition  (Fig.  6) 

10-12 

296  K 

252  K 

.2'  sharp  cone,  a  =  0°, 
w/injection  (Fig.  2) 

C02:21 

Ar :  1 7 
Air:4 

274  K 

230  K 

.4’  blunt  cone,  a  =  0°, 
w/injection  (Fig.  3) 

He:  25 
Ar:50 
:5 

310  K 

266  K 

blunt  cone,  a  /  0°, 
laminar  (Fig.  4) 

23 

310  K 

266  K 

sharp  cone,  a  /  0°, 
laminar  (Fig.  5) 

23 

296  K 

252  K 

1. 


2. 


3. 


Assuming  an  overlayed  program  as  in  Appendix  VI  under  Fortran  G. 
Execution  times  only,  running  under  Fortran  G. 

Time  for  one  13  plane  excursion  from  windward  to  leeward  rays. 
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Figure  1.  Finite  Difference  Grid  and  Notation 

Bottom  grid  shows  notation  used  In  the  computer  program. 
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Figure  2.  Comparison  of  Boundary-Layer  Parameters  for  Mass  Transfer 
over  a  Sharp  Cone  at  Zero  Incidence, 
a)  Concentration  of  Air  at  the  Wall 
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S/L 


Figure  2.  Cont'd. 

c)  Longitudinal  Skin-Friction  Coefficient  Based  on 
Free-Stream  Conditions 
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Figure  2.  Cont'd. 

d)  Displacement  Thickness 
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Figure  2.  Concluded. 

e)  Profile  of  the  Concentration  of  Air 
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Figure  3.  Cont'd. 

b)  Dimensionless  Wall  Heat  Transfer  Rate 
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Figure  3.  Concluded. 

d}  Displacement  Thickness 
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Figure  5.  Wall  Heat  Transfer  Rate  over  a  Sharp  Cone  at  Angle  of 
Attack;  Present  Results  versus  Experiment  of  Cleary 
(Ref.  40). 
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S/L 

Figure  6.  Boundary-Layer  Parameters  for  Laminar  and  Turbulent  Flows 
Over  a  Sharp  Cone  at  Zero  and  Non-Zero  Angles  of  Attack 
a)  Heat  Transfer  Rate  for  a  Cone  at  Angle  of  Attack 
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Figure  6. 
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Itudlnal  Velocity  Profiles  for  Zero  and  Non-Zero 
es  of  Attack 
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Figure  6.  Cont'd. 

c)  Transverse  Velocity  Derivative  Profile  for  Non-Zero 
Angle  of  Attack 
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Figure  6.  Concluded. 

d)  Temperature  Profiles  for  Zero  and  Non-Zero  Angles  of  Attack 
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Figure  7.  Three-Dimensional  Solution  of  a  Sharp  Cone  at  Angle  of 
Attack  with  Transition  to  Turbulence, 
a)  Boundary-Layer  Thickness  vs.  S/L 


67 


AEDC-TR-75-55 


0  .20  .40  .60  .80  1.00 

S/L 


Figure  7.  Cont'd. 

d)  Transverse  Skin  Friction  Coefficient  vs.  S/L 
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Figure  7.  Cont'd. 

f)  Boundary-Layer  Thickness  vs.  <j> 
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Figure  7.  Cont'd. 

g)  Displacement  Thickness  vs.  <t> 


Figure  7.  Cont'd. 

i)  Transverse  Skin  Friction  Coefficient  vs.$ 
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Figure  7.  Cont'd. 

j)  Stanton  Number  vs.  <t> 
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Figure  7.  Cont'd. 

k)  Relative  Eddy  Viscosity  vs.  Y/L  at  Constant  S. 
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Figure  7.  Concluded. 

1.  Relative  Eddy  Viscosity  vs.  Y/L  at  Constant  $. 
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Figure  8.  Comparison  of  Turbulent  Prandtl  Number  Profiles  from 
Laws  Provided  in  the  Program. 

a)  Prt  Profiles  for  a  Sharp  Cone  at  Angle  of  Attack 
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Concluded. 

b)  Corresponding  Temperature  Profiles 
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Table  I 


Polynomial  Coefficients  for  the  Specific  Heat  at 
Constant  Pressure  for  Air  and  Carbon  Dioxide 


Gas 

Temperature 
Range  °R 

A 

B 

C 

D 

E 

F 

AIR 

0  -  2,000 

6.0351797 
x  103 

-9.4509125 
x  10"4 

-7.3022675 
x  10"4 

1 .73022675 
x  10'6 

-9.7657438 

X  ID'10 

1 .7465179 
x  ID'13 

2,000  -  12,600 

5.9028 
x  103 

3.77072 
x  10"1 

9.64649 
x  10"5 

-3.53769 
x  10“8 

3.48567 
x  10'12 

-1.11502 
x  10'16 

c°2 

0  -  2,000 

2.3317627 
x  102 

7.3287082 
x  101 

-1  .342833 
x  10"1 

1.3090637 
x  10"4 

-6.0572879 
x  10"8 

1.0531063 
x  10-11 

2,000  -  6,300 

1.328997 

1.0499195 

-3.4760828 

6.1489558 

-5.568993 

2.033227 

x  104  x  101  x  10"3  x  10"7  x  10"11  x  1015 
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Polynomial  Coefficients  for  the  Viscosity  of  an  Individual  Specie 


Gas 

Temperature 
Range  °R 

A 

B 

C 

D 

E 

F 

Air 

90  -  12,600 

1.48066 
x  10"1 

6.95936 
x  10"3 

-1 .49079 
x  10"6 

2.3759 
x  10"10 

-1 .78242 
x  ID'14 

5.0725 
x  10"19 

He 

90  -  12,600 

7.2044 
x  10"1 

7.06794 
x  10"3 

-1 .5363 
x  10'6 

2.80513 
x  10"10 

-2.28363 

X  10'14 

6.74097 
x  10‘19 

Ar 

90  -  12,600. 

2.63154 
x  10'1 

8.61381 
x  10'3 

-1 .8422 
x  10"6 

3.16427 
x  ID'10 

2.47897 
x  10"14 

7.10697 
x  10'19 

co2 

90  -  6,300 

7.81932 
x  10"2 

6.77326 
x  10"3 

-1.72869 
x  10'6 

3.8700139 
x  10"10 

-5.13048 
x  10"14 

2.76916 

X  10-18 

Table  III 

Polynomial  Coefficients  for  the  Binary  Diffusion  Coefficients  of  Mixtures 


Mixture 

Temperature 
Range  °R 

A 

B 

C 

D 

E 

F 

He  -  Air 

90  -  12,600 

-1.98803 
x  10'1 

2.31693 
x  10"3 

2.60637 
x  10~6 

-4.7411 
x  10’11 

-1.00312 
x  10“14 

6.79428 
x  10“19 

Ar  -  Air 

90  -  12,600 

-6.39025 
x  10"2 

6.67803 
x  10'4 

1.26081 
x  IQ'6 

-1.02832 
x  10“10 

7.39182 
x  10'15 

-2.18881 
x  10'19 

C02  -  Air 

90  -  6,300 

1.30949 
x  10‘2 

-5.62157 
x  10'5 

1.41785 
x  10'6 

-3.85557 
x  10'10 

6.84052 
x  10‘14 

-4.74034 

X  10-18 
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APPENDIX  III 

DESCRIPTION  OF  COMPUTER  PROGRAM 

The  computer  program  has  been  developed  to  solve  a  large  class  of 
boundary-layer  flows.  The  geometries  included  in  the  program  are  those 
of  a  sharp  and  a  spherically  blunted  cone.  For  these  two  geometries  the 
program  has  full  three-dimensional  solution  capabilities  for  cases  where 
these  cones  are  at  an  angle  of  attack.  When  either  cone  is  in  an  axisym- 
metric  flow  field  (zero  angle  of  attack)  the  program  will  solve  only  the 
windward  streamline  of  the  vehicle. 

Solution  of  each  problem  by  the  program  employs  the  use  of  the  itera¬ 
tive  tridiagonal  matrix  method  which  has  been  used  very  successfully  by 
Blottner  and  Ellis  (Ref.  18),  Adams  (Ref.  15),  McGowan  and  Davis  (Ref.  4), 
and  by  Anderson  and  Lewis  (Ref.  8).  In  this  method  the  sets  of  ordinary 
differential  equations  or  parabolic  partial  differential  equations  are 
reduced  to  a  linear  finite  difference  form  for  numerical  solution.  Sub¬ 
routines  are  used  to  define  the  coefficients  of  each  equation  being  solved. 
To  solve  a  new  problem  the  program  only  needs  to  define  these  coefficients 
and  the  boundary  conditions,  and  plug  them  into  the  standard  solution 
procedure. 

Flexibility  has  been  provided  for  in  the  numerical  procedure  by  allow¬ 
ing  the  user  to  choose  either  a  fully  implicit  Krause  scheme  or  a  Crank- 
Nicolson  scheme.  The  Crank-Nicolson  scheme  is  unstable  in  regions  of 
reverse  crossflow,  but  it  does  not  require  information  downstream  in  the 
cross  flow  direction.  The  fully  implicit  Krause  scheme  is  stable  every¬ 
where.  The  numerical  solution  procedure  is  split  into  four  parts:  1) 
stagnation  point  solution,  2)  windward  streamline  solution,  3)  stagnation 
line  solution,  and  4)  general  solution.  The  details  of  each  solution  are 
described  in  the  Analysis.  The  first  three  solutions  are  merely  special¬ 
ized  cases  of  the  general  solution. 

Subject  to  parameters  set  by  the  user  the  program  is  fully  internally 
adjustable.  If  the  user  so  specifies  the  transformed  normal  coordinate, 
n,  can  be  automatically  increased  or  decreased  to  meet  a  predetermined 
criteria  for  asympticity  of  the  streamwise  velocity  profile.  The  stream- 
wise  step  size  is  also  fully  adjustable  based  on  the  number  of  iterations 
needed  for  a  converged  solution  at  a  previous  station.  The  step  size  is 
either  unchanged,  halved,  or  doubled  when  the  number  of  Iterations  is  com¬ 
pared  to  counters  input  by  the  user.  If  for  some  reason  the  program  cannot 
obtain  a  converged  solution  at  a  particular  point,  it  will  cut  back  the 
step  size  and  try  for  a  solution  at  a  point  upstream  of  the  old  point.  If 
this  procedure  fails  three  consecutive  times,  execution  of  the  program  is 
terminated. 

A  flow  chart  of  the  program  flow  is  provided  in  this  appendix.  It  can 
be  seen  from  the  chart  that  the  program  is  split  into  four  basic  parts: 

1)  input  and  initialization  of  data,  2)  preparation  of  edge  data,  3)  solu¬ 
tion  of  the  boundary-layer  equations,  and  4)  plotting  the  results,  The 
largest  part,  of  course,  is  the  boundary-layer  solution  which  marches 
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downstream  and  from  the  windward  to  leeward  planes  solving  the  governing 
boundary-layer  equations.  A  separate  flow  chart  of  this  procedure  is  also 
included  in  the  appendix. 

There  is  a  special  feature  of  the  program  for  full  three-dimensional 
solutions.  If  the  program  cannot  obtain  a  converged  solution  at  some  point 
between  the  windward  and  leeward  rays  It  will  drop  that  point  from  solu¬ 
tions  around  the  body  at  subsequent  streamwise  stations.  This  procedure 
allows  the  solution  to  proceed  even  after  separation  or  other  problems  are 
encountered  near  the  leeward  plane  of  the  body. 

I.  Program  Input 

Input  to  the  program  can  be  from  two  different  sources:  1)  cards  or 
card  image  data  and  2)  data  sets  residing  on  tape  or  disk.  Card  or  card 
image  data  is  designed  for  easy  use  on  CRT  terminals  or  other  telecommuni¬ 
cations  devices.  Each  card  carries  a  single  variable  and  bears  its  name 
and  format.  This  feature  makes  it  easy  to  FIND  and  CHANGE  data  by  hand 
or  by  terminal.  The  user  should  note  that  some  variables  are  used  only  In 
certain  input  cases.  For  instance,  RNOSE  is  used  only  for  blunt  cones.  A 
section  of  edge  property  data  cards  are  used  only  when  running  a  sharp  cone 
at  zero  incidence. 

The  first  card  of  each  card  deck  is  a  title  card  for  the  case  being 
run.  Following  variable  RNOSE  (for  blunt  cones),  or  XBAR  (for  sharp  cones) 
is  a  section  of  cards  which  are  read  as  array  XSTA.  At  this  point  the  user 
should  specify  the  streamwise  locations  at  which  he  wants  the  program  to 
obtain  a  solution.  This  is  the  only  method  a  user  has  to  Insure  a  solution 
at  a  particular  point  due  to  the  internal  adjustments  the  program  can  make 
automatically.  The  XSTA  array  is  also  used  in  specifying  where  circum¬ 
ferential  plots  will  be  drawn  by  the  program.  Of  course.  If  a  user  desires 
to  have  plots  drawn  at  a  particular  point  then  he  must  also  have  a  solution 
there. 

Following  the  input  of  the  XSTA  array  are  the  input  arrays  for  wall 
temperature  and  injection  rate.  Input  is  not  required  here  if  wall  tempera¬ 
ture  and  injection  rate  are  constants.  Each  distribution  can  be  read  in 
versus  its  own  table  of  surface  locations  in  the  event  that  the  data  are 
from  different  sources.  However,  if  the  distributions  are  versus  identical 
tables,  either  table  of  surface  locations  may  be  left  out.  The  program  will 
automatically  set  both  surface  value  table  equal  when  either  one  is  left 
out.  A  description  and  list  of  the  input  data  cards  is  given  In  Appendix 
IV. 


The  second  type  of  input  to  the  program  is  in  the  form  of  data  sets 
residing  on  tape  or  disk.  These  data  sets  have  to  do  with  edge  properties, 
and  they  represent  two  stages  of  edge  properties  development.  Unit  25  is  a 
data  set  that  is  used  only  when  running  a  particular  problem  for  the  first 
time.  This  unit  holds  edge  data  as  It  comes  from  the  Black  and  Lewis  (Ref. 
36)  inviscid  program.  When  the  boundary  layer  program  is  run  the  first  time 
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unit  25  is  read  and  subroutines  DISKIN,  WEDGE,  and  FORIER  digest  the  data 
and  write  the  data  in  its  correct  form  on  unit  10  for  use  by  the  boundary- 
layer  solution.  Subsequent  solutions  of  the  same  cone  in  the  same  inviscid 
flow  field  would  therefore  need  only  use  unit  10  and  bypass  the  extra  step 
needed  for  a  first  run.  This  procedure  is  identical  to  the  one  used  by 
Frieders  and  Lewis  (Ref.  7).  A  detailed  description  of  the  subroutines 
involved  can  also  be  found  in  Volume  II  of  their  report. 

The  only  exception  to  the  edge  properties  input  procedure  described 
above  is  the  case  of  a  sharp  cone  at  zero  incidence.  In  this  case  the 
conical  flow  edge  properties  are  read  in  on  cards  along  with  the  normal 
card  input. 

II.  Program  Output 

The  output  of  the  boundary-layer  program  is  in  the  form  of  printed 
output  and  machine  plots.  The  printed  output  contains  edge  data,  surface 
properties  and  normal  profiles  for  each  solution  point.  The  user  can 
specify  output  control  variables  which  will  automatically  control  the 
printing  of  the  output  such  as  printing  only  every  second  or  third  station, 
or  plane  that  is  solved.  These  variables  are  described  in  Appendix  IV. 

Machine  plots  are  produced  at  the  discretion  of  the  user  and  at  his 
direction  through  the  use  of  four  integer  input  arrays  which  describe 
where  plots  are  to  be  made.  The  plotter  package  in  the  program  has  been 
written  so  that  it  interfaces  with  a  CALCOMP  plotter  using  an  IBM  370 
system  digital  computer. 

Four  types  of  plots  are  available  to  the  user  by  specifying  the  integer 
input  arrays  LPLOT,  LPRFL,  KPLOT,  and  KPRFL.  The  LPLOT  array  points  to 
particular  stations  at  which  surface  property  plots  are  desired  in  the  cir¬ 
cumferential  direction.  The  integer  itself  is  used  as  the  subscript  of  the 
XSTA  array  so  that  when  X  =  XSTA  (LPLOT ( I ) )  the  program  plots  properties 
such  as  skin  friction  versus  circumferential  angle,  from  the  windward  to 
leeward  planes.  Therefore  through  skillful  manipulation  of  the  XSTA  and 
LPLOT  arrays  the  user  can  obtain  plots  of  the  surface  properties  around  the 
cone  at  up  to  four  streamwise  locations  of  his  choice. 

The  KPLOT  array  is  used  similarly  to  obtain  plots  of  surface  proper¬ 
ties  in  the  streamwise  direction  at  selected  circumferential  locations. 

When  the  internal  counter,  K,  for  circumferential  solution  planes  is  equal 
to  KPLOT(I)  the  program  stores  data  for  streamwise  surface  property  plots, 
such  as  heat  transfer  versus  X/L  at  $  =  90° 

The  arrays  LPRFL  and  KPRFL  are  used  to  obtain  plots  of  normal  profiles 
at  selected  locations.  The  program  automatically  stores  the  profiles  wher¬ 
ever  the  lines  of  constant  X  and  constant  <j>  specified  by  LPLOT  and  KPLOT 
intersect.  The  integers  of  LPRFL  and  KPRFL  become  the  subscripts  of  LPLOT 
and  KPLOT,  and  therefore  tell  the  plotter  where  profile  plots  are  desired. 
For  instance  if  LPRFL(l)  =  2,  then  profile  plots  at  X  =  XSTA(LPL0T(2))  are 
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drawn.  The  resulting  plots  would  show  such  variables  as  velocity  and  tem¬ 
perature  profiles  at  the  chosen  value  of  X  and  for  the  circumferential 
positions  represented  by  the  KPLOT  array.  If  3  planes  were  chosen  for 
plotting  in  the  KPLOT  array,  then  at  the  given  value  of  X  the  profile  plots 
would  show  three  curves,  giving  the  profiles  at  each  value  of  $.  In  similar 
manner  profiles  can  be  compared  in  the  streamwise  direction  at  a  constant  <j> 
by  specifying  in  the  KPRFL  array  the  subscript  of  the  KPLOT  array  represent¬ 
ing  the  desired  <t>  location.  The  number  of  curves  on  each  plot  would  equal 
the  number  of  X  locations  chosen  by  the  LPLOT  array. 

In  short  the  LPLOT,  KPLOT,  LPRFL,  and  KPRFL  arrays  allow  the  user  to 
have:  1)  streamwise  plots  of  surface  properties  at  a  constant  <(>,  2}  cir¬ 
cumferential  plots  of  surface  properties  at  a  constant  X,  3)  normal  pro¬ 
files  versus  &  for  a  constant  value  of  X,  and  4)  normal  profiles  versus  X 
for  a  constant  value  of  <f>.  Additional  information  on  these  arrays  is  given 
in  Appendix  IV. 

III.  Eddy  Viscosity  Models 

Two  inner  eddy  viscosity  models  are  at  the  disposal  of  the  user.  He 
may  select  the  Van  Driest  (Ref.  38)  inner  law  or  the  Reichardt  (Ref.  39) 
inner  law.  Both  the  Reichardt  and  Van  Driest  inner  laws  are  corrected  for 
mass  transfer.  The  Reichardt  law  is  recommended  for  low  mass  transfer 
problems  only.  Higher  mass  transfer  rates  are  more  accurately  handled  by 
the  corrected  Van  Driest  law.  The  Reichardt  law  is  more  desirable  for  no 
mass  transfer  problems  due  to  the  decreased  computing  time  necessary. 

The  outer  eddy  viscosity  law  follows  the  development  of  Patankar  and 
Spalding  (Ref.  21).  The  outer  law  is  damped  with  Klebanoff's  (Ref.  23) 
intermittency  factor. 

All  three  eddy  viscosity  laws  have  been  extended  to  the  three- 
dimensional  case  as  described  in  the  Analysis. 

IV.  Transition  Models 

Two  transition  models  have  been  provided  for  in  the  program.  One  is 
an  instantaneous  model  yielding  100X  turbulence  at  the  onset  of  "transition. 
The  other  model  has  been  developed  from  an  equation  by  Dhawan  and  Narasimha 
(Ref.  25)  and  allows  a  smooth  transition  from  laminar  to  turbulent  flow  over 
a  distance  specified  by  the  user.  This  model  results  in  an  intermittency 
factor  used  as  a  multiplier  on  the  eddy  viscosity.  The  intermittency 
factor  is  a  function  of  empirical  constants  and  streamwise  location  rela¬ 
tive  to  transition  onset  distance.  No  accounting  of  intermittency  factor 
variation  normal  to  the  wall  is  made  in  the  program. 

V.  Turbulent  Prandtl  Number  Models 

There  are  5  different  turbulent  Prandtl  number  models  in  the  program. 
One  model  gives  a  constant  Prandtl  number  of  0.9.  Each  of  the  other  models 
yields  a  variable  Prandtl  number  profile  normal  to  the  body  and  each  is 
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described  in  the  Analysis  section  of  this  report.  The  four  models  have 
been  developed  by  Cebeci,  Rotta,  Shang,  and  Meier. 

VI.  Mass  Transfer  Options 

The  computer  program  is  capable  of  mass  transfer  beginning  at  any 
point  specified  by  the  user.  The  injected  gas  and  the  injection  rate  are 
specified  by  the  user.  The  gases  available  for  injection  in  the  program 
are  air,  helium,  carbon  dioxide,  and  argon.  The  program  computes  the 
mixture  properties,  and  calculates  the  thermodynamic  and  transport  proper¬ 
ties  at  each  solution  point  in  the  mass  transfer  region. 

VII.  Other  Notes  on  the  Program 

Generous  use  of  comment  cards  has  been  made  in  the  development  of  the 
program.  Comment  cards  are  found  at  most  major  transfers  of  control. 

Common  blocks  have  been  named  so  that  the  name  indicates  the  function  of 
the  variables  stored  in  them.  The  same  is  true  of  subroutine  names;  for 
instance,  wall  boundary  conditions  are  calculated  in  WALL,  the  species 
equation  boundary  equation  is  calculated  in  SPECBC,  etc. 

The  program  has  been  written  using  an  IBM  370/158  digital  computer. 

The  organization  of  the  program  is  such  that  MAIN  serves  as  a  root  segment 
for  an  overlay  structure.  The  major  parts  of  the  program  thus  become  over¬ 
lay  segments,  sharply  reducing  the  required  core  in  the  machine.  Using  the 
plot  package  in  the  program  alone  adds  about  44  K  of  buffers  to  the  core 
requirements.  Appendix  VI  lists  the  JCL  for  running  the  program  on  an  IBM 
370  system.  Included  in  the  Appendix  are  the  linkage  editor  control  cards 
which  specify  the  overlay  structure. 

The  program  as  listed  in  Appendix  VIII  is  in  double  precision  for  use 
on  an  IBM  computer.  A  single  precision  version  would  probably  be  adequate 
on  CDC  machines. 
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Figure  1.  Simplified  Flow  of  Control  in  the  Boundary- 
Layer  Program. 
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Figure  2.  Boundary  Layer  Solution  Procedure 


AEDC-TR-75-55 


AEDC-TR-75-55 


APPENDIX  IV 

DESCRIPTION  OF  INPUT  DATA 

In  this  description  of  the  input  data  the  number  of  the  card  is  first, 
followed  by  the  variable  name  and  the  format.  Formats  may  change  from  card 
to  card;  however,  all  variables  are  coded  starting  in  column  50.  All  Input 
data  cards  are  printed  automatically  by  the  program  so  that  there  will  be 
no  question  as  to  the  data  read  in  by  a  particular  run. 

Following  the  card  number,  variable  name,  and  format  is  a  description 
of  the  variable,  which  may  include  recommended  values.  Any  restrictions  on 
input  variables  is  also  noted  where  necessary. 

Three  lists  of  input  data  cards  are  also  supplied  in  this  appendix  for 
the  three  different  Input  cases.  These  cases  are:  1)  sharp  cone  at  zero 
angle  of  attack,  2)  sharp  cone  at  angle  of  attack,  and  3)  blunt  cone. 

Card  1.  LABEL  (20A4) 

LABEL  is  the  title  of  the  case  and  is  a  single  subscripted  array.  The 
LABEL  is  passed  to  the  plotting  routines  and  appears  on  all  machine  drawn 
plots  produced  by  the  program. 

Card  2.  IE  (49X.I3) 

IE  is  a  number  of  points  taken  normal  to  the  body.  The  .program  is 
dimensioned  for  a  maximum  of  101  points  in  the  normal  profile  arrays.  101 
is  the  recommended  value;  however,  savings  in  execution  time  can  be  had 
for  long  jobs  by  decreasing  IE  to  51  or  lower.  IE  should  be  an  odd  number. 

Card  3.  INJCT  (49X, 13) 

INJCT  is  the  subscript  of  the  XSTA  array  giving  the  surface  location 
at  which  injection  begins.  When  X  >  XSTA(INJCT),  the  internal  counter  MASTRN 
Is  changed  from  0  to  1  thereby  activating  the  parts  of  the  program  which 
handle  mass  transfer.  A  zero  value  is  reset  to  NSOLVE. 

Card  4.  KADETA  (49X,I3) 

KADETA  is  an  indicator  for  the  adjustment  of  the  transformed  normal 
coordinate  n.  If  KADETA  is  0  then  the  maximum  n  is  held  constant.  If 
KADETA  is  1  then  the  maximum  n  is  adjusted  when  the  velocity  profile  fails 
to  converge  at  the  proper  rate  at  the  outer  edge  as  prescribed  by  the 
variable  ADTEST.  The  value  of  nmax  can  be  adjusted  up  or  down  for  windward 
streamline  problems.  For  full  three-dimensional  problems  nmax  is  only 
adjusted  up,  and  it  can  be  adjusted  at  every  point.  A  value  of  1  is 
recommended. 
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Card  5.  KEND2  (49X,I3) 

KEND2  specifies  the  number  of  circumferential  planes  to  be  used  in  the 
solution,  and  thereby  also  sets  the  circumferential  step  size.  The  program 
has  been  coded  to  accept  a  maximum  of  61  solution  planes;  however,  61  planes 
require  excessive  computing  time.  Thirteen  planes  are  adequate  for  most 
cases  being  solved.  The  user  should  exercise  care  in  choosing  this  number 
since  the  program  will  drop  planes  near  the  leeward  streamline.  Definition 
or  resolution  in  the  total  solution  can  be  lost  if  the  nearest  plane  is'  say 
30  degrees  to  the  windward  when  a  leeside  plane  is  dropped. 

Card  6.  KONSET  (49X,I3) 

KONSET  is  the  subscript  of  the  XSTA  array  qiving  the  location  of  the 
onset  of  transition.  At  X  =  XSTA( KONSET)  the  variable  LAMTRB  is  reset  to 
i  and  transition  to  turbulence  begins.  A  zero  value  is  reset  to  NSOLVE. 

Card  7.  KPRT  (49X,I3) 

KPRT  is  a  print  control  parameter  which  controls  the  printing  of  pro¬ 
files  in  the  4  direction.  If  set  to  1  the  program  will  print  profiles  at 
every  step  in  4.  If  set  to  3  the  program  will  print  every  3  steps  in  4, 
etc.  A  value  of  3  is  recommended. 

Card  8.  KTRANS  (49X,I3) 

KTRANS  is  an  indicator  for  the  transition  model.  If  KTRANS  is  set  to 
0  transition  to  turbulence  will  be  instantaneous.  If  set  to  1  a  smooth 
transition  to  turbulence  will  take  place  over  a  distance  determined  by 
variable  XBAR.  J 

Card  9.  LAMTRB  (49X, 13) 

LAMTRB  indicates  whether  the  flow  is  laminar  or  turbulent.  LAMTRB 
se“  r  «  indicates  the  problem  begins  with  laminar  flow.  LAMTRB  must  be 

set  to  2  for  fully  turbulent  flow.  A  LAMTRB  of  1  is  reset  to  2  at  transi¬ 
tion  onset. 

Card  10.  LPRT  (49X.I3) 

LPRT  is  the  print  control  parameter  in  the  streamwise  direction.  If 
set  to  1  the  program  will  print  solutions  at  every  step  in  X.  If  set  to 
3  the  program  will  print  every  third  step  in  X,  etc. 

Card  11.  NIT1  (49X.I3) 

_ _  NIP  1?  an  iteration  counter  used  to  adjust  the  streamwise  step  size. 

If  the  total  number  of  iterations  required  to  obtain  the  solution  at  a 
point  is  less  than  or  equal  to  NIT1  the  X  step  size  is  doubled, 
i.e.  DX  =  2*DX  when  NIT  <  NIT1. 
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Card  12.  NIT2  (49X.I3) 

NIT2  is  an  iteration  counter  used  to  adjust  the  streamwise  step  size. 
If  the  total  number  of  iterations  required  to  obtain  the  solution  at  a 
point  is  greater  than  NIT1  and  less  than  NIT2  the  X  step  size  is  unchanqed. 
i.e.  DX  =  DX  when  NIT1  <  NIT  <  NIT2. 

Card  13.  NIT3  (49X.I3) 

NIT3  is  an  iteration  counter  affecting  X  step  size  and  convergence  of 
the  solution.  If  the  total  number  of  iterations  required  for  a  solution  at 
a  particular  point  is  greater  than  NIT3  the  program  halves  the  X  step  size 
and  cuts  back  the  value  of  X  by  the  new  step  size.  A  solution  at  the 
smaller  value  of  X  is  then  tried  for.  If  this  procedure  fails  three  conse¬ 
cutive  times  execution  is  terminated, 
i.e.  X  =  X  -  DX/2  when  NIT  >  NIT3. 

NOTE:  The  X  step  size  is  adjusted  only  at  the  windward  plane. 

Card  14.  NOINJ  (49X,I3) 

NOINJ  is  the  subscript  of  the  XSTA  giving  the  surface  location  at 
which  injection  ends.  At  X  =  XSTA(NOINJ)  the  counter  MASTRN  is  reset  to  0 
ending  all  mass  transfer.  A  value  of  0  is  reset  to  NSOLVE. 

Card  15.  NOSE  (49X.A5) 

NOSE  is  a  literal  variable  coded  as  either  SHARP  or  BLUNT  to  indicate 
either  a  blunt  or  sharp  vehicle.  The  program  will  handle  only  spherically 
blunted  cones. 

Card  16.  NSOLVE  (49X.I3) 

NSOLVE  is  the  number  of  variables  in  the  XSTA  array,  and  is  therefore 
the  subscript  of  the  last  XSTA  value  which  indicates  the  end  of  the  body. 

It  is  also  the  default  value  for  INJCT,  NOINJ,  and  KONSET. 

Card  17.  KPLOT(I),  I  =  1,4  (49X.4I3) 

KPLOT  is  a  plotter  control  array  which  indicates  up  to  four  circum¬ 
ferential  planes  at  which  plots  of  surface  properties  such  as  heat  transfer 
and  skin  friction  are  made  versus  the  normalized  surface  distance  X/L  or 
X/Rn.  Leading  zeros  are  not  allowed;  however,  the  integer  values  of  KPLOT 
may  be  entered  in  any  order.  Trailing  zeros  are  allowed, 
i.e.  KPLOT  =  1,  5,  7,  0  will  yield  surface  plots  versus  X  at  planes  1,  5, 
and  7,  where  the  highest  plane  number  is  less  than  or  equal  to  KEND2.  No 
plots  will  result  from  KPLOT  =  0,  1,  5,  7. 
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Card  18.  KPRFL(I) ,  I  =  1,4  (49X.4I3) 

KPRFL  is  a  plotter  control  array  which  indicates  the  values  of  KPLOT 
chosen  for  the  plotting  of  normal  profiles  versus  X.  KPRFL  is  the  sub¬ 
script  of  KPLOT  in  this  case.  Profiles  are  generated  only  at  the  intersec¬ 
tion  of  constant  <|>  lines  and  constant  X  lines  specified  by  KPLOT  and  LPLOT. 
Each  plot  produced  by  KPRFL  can  have  up  to  four  curves  representing  pro¬ 
files  at  four  different  X  values,  all  at  a  constant  <(>.  The  same  rules 
apply  here  as  above. 

i.e.  if  KPRFL  =  1,  2,  0,  0  and  KPLOT  is  as  above,  the  profile  plots  versus 
X  will  be  produced  at  planes  1  and  5. 

Card  19.  LPLOT(I),  1=1,4  (49X.4I3) 

LPLOT  is  a  plotter  control  array  which  indicates  up  to  four  streamwise 
stations  at  which  plots  of  surface  properties  such  as  heat  transfer  and 
skin  friction  are  made  versus  <(>.  The  same  coding  rules  apply  as  on  card 
17. 

i.e.  if  LPLOT  =  4,  6,  20,  0  plots  of  surface  properties  versus  $  will  be 
generated  at  X  =  XSTA(4),  XSTA(6),  and  XSTA(20). 

Card  20.  LPRFL(I) ,  1=1,4  (49X.4I3) 

LPRFL  is  a  plotter  control  array  which  indicates  the  values  of  LPLOT 
chosen  for  the  plotting  of  normal  profiles  versus  4> .  LPRFL  is  the  sub¬ 
script  of  LPLOT  in  this  case.  Each  plot  produced  by  LPRFL  can  have  up  to 
four  curves  representing  four  different  values  of  4,  all  at  a  constant  X. 
i.e.  if  LPRFL  =  1,  2,  0,  0  and  LPLOT  is  as  above,  then  profile  plots 

versus  </>  will  be  produced  at  X  =  XSTA(4)  and  X  =  XSTA(6). 

Card  21.  ADTEST  (49X.E14.5) 

ADTEST  is  used  in  conjunction  with  KADETA.  When  KADETA  is  1  ADTEST 
provides  the  convergence  criteria  for  checking  the  streamwise  velocity 
profile.  When  U/UE(IE)  -  U/UE(IE-4)  is  less  than  ADTEST/ 10  the  maximum 
value  of  n  is  decreased  by  10% .  When  it  is  greater  than  ADTEST  the  maximum 

value  of  n  is  increased  by  10%. 

Card  22.  AKSTAR  (49X.E14.6) 

AKSTAR  is  a  numerical  constant  in  the  Van  Driest  inner  eddy  viscosity 
law  (k*  in  the  Analysis).  The  recommended  value  is  0.435. 

Card  23.  ALAMDA  (49X.E14.6) 

ALAMDA  is  a  numerical  constant  in  the  outer  eddy  viscosity  law  used  in 
the  program  (x  in  the  Analysis).  The  recommended  value  is  0.09. 
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Card  24.  ALET  (49X.E14.6) 

ALET  is  the  value  of  the  turbulent  Lewis  number.  The  profile  of  the 
turbulent  Lewis  number  is  filled  with  this  value. 

Card  25.  ALPHA  (49X.E14.6) 

ALPHA  is  the  angle  of  attack  of  the  vehicle,  in  degrees. 

Card  26.  ASTAR  (49X.E14.6) 

ASTAR  is  a  numerical  constant  used  in  the  damping  term  of  Van  Drlest's 
inner  eddy  viscosity  law  in  the  program  (A*  in  the  Analysis).  The  recom¬ 
mended  value  is  26.0. 

Card  27.  COOL  (49X.A3) 

COOL  is  a  literal  variable  specifying  the  type  of  cooling  in  the  cir¬ 
cumferential  direction.  It  can  be  coded  as  either  ABLATION  or  TRANSPIRATION. 
The  first  3  letters  are  picked  up  by  the  program.  If  COOL  =  ABLATION  the 
injection  rate  in  the  circumferential  direction  is  given  by  a  cosine  squared 
distribution:  CWALL  =  CWALLk=l  *  cos2  ($).  If  COOL  =  TRANSPIRATION  the 
Injection  rate  in  the  circumferential  direction  is  given  by  the  rate  at  the 
windward  plane  times  the  ratio  of  local  pressure  to  the  windward  pressure: 
CWALL  =  CWALL|<=i  *  PE/PEfc=i.  The  two  models  are  designed  to  show  the 
effects  of  ablation  and  transpiration-cooling  in  the  circumferential  direc¬ 
tion. 

Card  28.  CWALL  (49X.E14.6) 

CWALL  is  the  injection  rate  for  mass  transfer  cases  where  the  rate  is 
a  constant.  CWALL  = 

Card  29.  CRI  (49X.F5.3) 

CRI  is  the  indicator  for  the  numerical  solution  method.  If  CRI  =  1.0, 
then  the  solution  will  be  a  fully  implicit  Krause  method.  If  CRI  =  0.5, 
the  solution  method  will  be  a  Crank-Nicolson  scheme.  CRI  =  1.0  is  the  recom¬ 
mended  value. 

Card  30.  CONV  (49X.E14.6) 

CONV  is  the  solution  convergence  criterion.  The  dependent  variable 
arrays  of  stagnation  enthalpy,  streamwise  and  cross  flow  velocities,  and 
the  species  concentration  are  all  checked  for  convergence  at  all  points. 

When  the  largest  percentage  difference  between  the  current  and  previous 
iterations  is  less  than  or  equal  to  CONV  the  solution  is  taken  to  be  con¬ 
verged. 
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Card  31 . 


(49X.A2) 


Disk  indicates  whether  or  not  a  new  data  set  of  edge  data  is  to  be 
created  on  unit  10.  When  DISK  =  YES  the  program  calls  subroutine  DISKIN 

T1CD  s£e-aV;£  ^6HBIaCk4:ani  Lewis  Pro9ram  residing  on  unit  25. 
ir  DISK  -  NO  the  umt  10  data  of  edge  properties  for  this  vehicle  already 

exists  and  DISKIN  is  not  called.  Therefore  DISK  will  normally  be  coded 

YES  only  in  the  first  run  of  a  vehicle-inviscid  field  combination. 

Card  32.  DXINVS  (49X.E14.6) 

DXINVS  is  the  interval  hz  along  the  axis  of  the  cone  between  points 
where  edge  data  is  to  be  obtained  from  the  Black  and  Lewis  program  by 
subroutine  DISKIN.  It  then  becomes  the  controlling  factor  in  how  closely 
spaced  the  streamwise  edge  data  points  are  for  interpolation  by  the 
boundary-layer  solution.  DXINVS  need  not  be  coded  if  DISK  =  NO  The 
recommended  value  is  0.04. 

Card  33.  DXMAX  (49X,E14.6) 

DXMAX  is  the  maximum  step  size,  in  feet,  to  be  taken  in  the  stream- 
wise  direction. 


Card  34. 


(49X.E14.6) 


. . .  JX1  ]s.  the  initial  streamwise  step  size  in  feet.  Since  this  value 
will  be  adjusted  internally  it  is  not  critical  that  the  user  choose  an 
accurate  value.  Usually  a  value  of  0.01  is  a  good  initial  DX. 

Card  35.  EDYLAW  (49X.A3) 

EDYLAW  specifies  the  inner  eddy  viscosity  law  to  be  used  in  turbulent 

9lS?nviAuW0  2E^AnnTre  ®vai!able  to  the  user:  1)  EDYLAW  =  VAN  DRIEST  and 
Z)  EDYLAW  =  REICHARDT .  The  program  picks  up  only  the  first  3  letters  of 
each  name.  The  user  should  note  the  comments  on  these  two  laws  for  mass 
transfer  problems  stated  in  Appendix  III.  In  general  the  REICHARDT  law  is 
recommended . 

Card  36.  ETAFAC  (49X.E14.6) 

ETAFAC  controls  the  normal  grid  spacing.  A  value  of  1.0  gives  an 
equally  spaced  grid  for  the  transformed  normal  coordinate.  A  value  qreater 
than  1.0  gives  a  finer  grid  at  the  wall  than  at  the  outer  edge.  A  value  of 
l-04  1S  recommended  with  IE  =  101  and  ETAINF  =  6.0.  A  value  of  1  09  is 
•  recommended  with  IE  =  101  and  ETAINF  .=  100.0. 

Card  37.  ETAINF  (49X.E14.6) 

E™*NF  Is  ttle  *pa x "i mum  value  of  n-  A  value  between  6.0  and  10.0  is 
recommended  for  laminar  flow.  A  value  between  10.0  and  100.0  is  recommended 
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for  turbulent  flow.  This  value  can  be  adjusted  internally  by  specifying 
KADETA  and  ADTEST  to  do  so. 

Card  38.  GAS2  (49X.A3) 

GAS2  is  the  name  of  the  injected  gas  in  mass  transfer  problems.  It 
can  be  coded  as  AIR,  HELIUM,  ARGON,  or  C02.  Only  the  first  three  letters 
are  picked  up  by  the  program. 

Card  39.  PLOT  (49X.A2) 

PLOT  is  the  indicator  for  machine  plot  generation.  If  PLOT  =  NO,  no 
machine  plots  will  be  made.  If  PLOT  =  YES,  the  machine  plots  built  into 
the  program  will  be  generated.  The  user  is  cautioned  that  specifying 
PLOT  =  YES  and  defining  the  four  plotter  data  sets  adds  approximately  44K 
to  the  program's  core  requirements. 

Card  40.  PRL  (49X.E14.6) 

PRL  is  the  initial  value  given  to  the  entire  laminar  Prandtl  number 
profile.  This  profile  is  updated  from  curve  fit  data  after  the  initial 
iteration. 

Card  41.  PRT  (49X.A5) 

PRT  specifies  the  turbulent  Prandtl  number  model  to  be  used  in  the 
turbulent  region.  It  should  be  coded  as  ROTTA,  SHANG,  CEBECI,  MEIER, 
or  CONSTANT,  where  each  name  Is  the  name  of  the  Derson  who  developed  the 
particular  model.  If  PRT  =  CONSTANT  the  turbulent  Prandtl  number  profile 
will  be  given  the  value  of  0.9  throughout.  The  four  different  models  are 
described  in  the  Analysis. 

Card  42.  PROP  (49X.A4) 

PROP  and  VALUE  are  used  together  to  read  either  P^,  p*,,  or  P0  into 
the  program.  If  the  user  has  any  one  of  the  three  quantities  the  program 
will  calculate  the  remaining  freestream  and  stagnation  quantities  in  sub¬ 
routine  AERO.  PROP  should  be  coded  as  PINF,  PSTAG,  or  RHOINF.  Only  the 
first  four  letters  are  read  by  the  program. 

Card  43.  RTW  (49X.E14.6) 

RTW  is  the  ratio  of  the  wall  temperature  to  stagnation  temperature. 

It  is  used  to  calculate  the  wall  temperature  when  the  wall  temperature  Is 
a  constant. 

Card  44.  TFS  (49X.E14.6) 

TFS  is  the  free-stream  temperature  in  degrees  Rankine.  If  TFS  is  coded 
as  0.0,  TFS  will  be  calculated  internally  from  TSTAG  and  the  Mach  number. 
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Card  45.  TSTAG  (49X.E14.6) 

TSTAG  is  the  stagnation  temperature  in  degrees  Rankine.  If  both  TFS 
and  TSTAG  are  input,  the  program  will  calculate  an  effective  specific  heat 
ratio  to  be  used  in  calculating  other  free-stream  and  stagnation  properties. 
If  TSTAG  is  coded  as  0.0,  TSTAG  will  be  calculated  internally  from  TFS  and 
the  Mach  number. 

Card  46.  VALUE  (49X.E14.6) 

VALUE  and  PROP  are  used  together  to  read  either  Pw,  p*,  or  P0  into  the 
program.  If  PROP  =  PINF  then  VALUE  is  P„  in  psia.  If  PROP  =  PSTAG  then 
VALUE  =  P0  in  psia.  If  PROP  =  RHOINF  then  VALUE  =  p*,  in  slugs  per  cubic 
foot. 

Card  47.  XBAR  {49X.E14.6) 

XBAR  is  the  relative  length  of  the  transition  regime  in  turbulent  cases. 
It  is  the  ratio  of  the  transition  end  point  location  to  the  transition  onset 
distance. 

Card  48.  RNOSE  (49X.E14.6) 

RNOSE  is  the  nose  radius  of  a  blunt  cone  in  feet.  RNOSE  is  included 
in  the  input  deck  for  blunt  cones  only. 

NOTE:  The  following  eight  cards  are  included  in  the  input  deck  only  for  the 
case  of  a  sharp  cone  at  zero  incidence.  DISK  should  be  coded  as  NO  in  this 
case. 

Card  49.  Q  (49X.E14.6) 

Q  is  the  ratio  of  specific  heats,  y ,  usually  1.4. 

Card  50.  R  (49X,E14.6) 

R  is  the  universal  gas  constant  for  air,  usually  coded  as  1716.0. 

Card  51.  THET1  (49X,E14.6) 

THET1  is  the  half  angle  of  the  cone,  ec,  in  degrees. 

Card  52.  XMA  (49X.E14.6) 

XMA  is  the  free-stream  Mach  number,  M,,,. 

Card  53.  PEDG  (49X.E14.6) 

PEDG  is  the  edge  pressure  in  psf.  It  is  normally  taken  to  be  equal  to 
the  surface  pressure  of  the  inviscid  solution. 


98 


AEDC -TR-75-55 


Card  54.  UEDG  (49X.E14.6) 

UEDG  is  the  streamwise  edge  velocity  in  feet  per  second,  normally 
the  surface  value  of  the  inviscid  solution. 

Card  55.  TEDG  (49X,E14.6) 

TEDG  is  the  edge  temperature  In  degrees  Rankine,  normally  the  surface 
value  of  the  inviscid  solution. 

Card  56.  RHOEDG  (49X.E14.6) 

RHOEDG  is  the  edge  density  in  slugs  per  cubic  foot,  normally  the 
surface  value  of  the  inviscid  solution. 

Card  57.  XSTA(I),  1=1,  NSOLVE  (F12.6) 

XSTA  is  an  important  input  array.  It  is  an  array  of  surface  distances 
in  feet,  where  the  user  wishes  to  have  solutions  calculated.  The  program 
will  always  obtain  solutions  at  these  points  regardless  of  internal  adjust¬ 
ments  to  the  streamwise  step  size.  Both  the  value  0.0  and  the  end  point  of 
the  cone  must  be  included  in  the  array  as  well  as  any  distances  describing 
the  beginning  or  end  of  injection  and  transition.  In  addition,  for  sharp' 
cones  XSTA(2)  should  be  some  small  value  near  the  sharp  tip  such  as  0.0001 
or  0.00025.  In  blunt  cone  cases  the  XSTA  array  is  expanded  by  subroutine 
BLUNT1  to  include  a  number  of  points  equal  to  KEND2 .  These  points  are 
points  along  the  spherical  wedge  section  of  the  cone  which  correspond  to 
solutions  along  the  3-D  starting  line  which  terminates  the  wedge  section. 
When  XSTA  is  expanded  all  counters  such  as  K0NSET  and  INJCT  are  reset 
automatically. 

Card  58.  XTW(I),  TWX(I),  XCI(I),  CIX(I)  (4E12.6) 

TWX(I)  Is  the  wall  temperature  in  degrees  Rankine  at  XTW(I)  which  is 
a  surface  distance  in  feet. 

CIX(I)  is  the  injection  rate  pwvw/p  u  at  XCI(I)  which  is  a  surface 
distance  in  feet. 

These  arrays  are  dimensioned  for  a  maximum  of  500  values  each.  If 
none  of  these  cards  appear  in  the  Input  deck  the  program  will  automatically 
assume  constant  wall  temperature  and  Injection  rate  values  based  on  RTW  and 
CWALL.  This  input  allows  the  wall  temperature  distribution  and  injection 
rate  distribution  to  be  read  in  versus  their  own  surface  distance  tables. 

If  both  distributions  are  to  be  read  in  versus  the  same  distance  table,  then 
either  one  of  the  two  distance  tables  may  be  left  blank.  Another  important 
feature  is  the  fact  that  the  distributions  need  not  cover  the  same  surface 
distance.  For  instance,  the  wall  temperature  distribution  might  be  defined 
over  the  entire  cone  while  the  injection  rate  distribution  might  only  be 
defined  over  a  short  distance. 
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TABLE  IV-1 

INPUT  DATA  DECK  FOR  A  SHARP  CONE  AT  ANGLE  OF  ATTACK 


HYPERSONIC 


CARO 

001 

IE 

CARO 

002 

INJCT 

CARO 

003 

K  ADC  TA 

CARD 

004 

KCN02 

CARO 

005 

KUNSET 

CARO 

006 

KPRT 

CARD 

CC7 

KTPANS 

CARD 

00  B 

L  AM  TAB 

CARO 

CO  9 

LPRT 

CARO 

010 

Mil 

CARO 

Oil 

NIT2 

CARO 

012 

MT3 

CARO 

013 

N01NJ 

CARO 

014 

NOSE 

CARO 

015 

NSOLVE 

CARO 

016 

KPLOT 

CARO 

017 

KPRFL 

CARO 

018 

LPLOT 

CARD 

019 

LPRFL 

CARO 

020 

AOTf ST 

CARO 

021 

AK  STAR 

CARO 

022 

ALAMDA 

CARO 

023 

ALET 

CARO 

024 

ALPHA 

CARO 

025 

ASTAR 

CARO 

026 

COOL 

CARO 

027 

CWALL 

CARO 

028 

CRI 

CARO 

029 

CONY 

CARO 

030 

DISK 

CARD 

031 

DXINV5 

CARO 

032 

OXMAX 

CARO 

033 

0X1  _ 

CARO 

C34 

fcDYL AW 

CARO 

335 

ETAFAC 

CARO 

036 

ETAINF 

CARD 

037 

GAS2 

CARO 

038 

PLOT 

CARD 

039 

PRL 

CARO 

340 

PRT 

CARO 

041 

PROP 

CARD 

042 

RTW 

CARO 

043 

TFS 

C4R0 

C44 

tstag 

CARO 

345 

VALUE 

CARO 

046 

XBAR 

0.0 

0.0001 

3.226 

4.0325 

CONE 

AEDC  TR 

-72-66 

13 

COL 

5C-52 

1  3 

CCL 

50-52 

13 

COL 

50-52 

13 

CCL 

50-52 

13 

CCL 

50-52 

13 

COL 

50-52 

13 

CCL 

50-52 

13 

COL 

50-52 

13 

CCL 

50-52 

13 

CCL 

50-52 

13 

CCL 

50-52 

13 

CCL 

50-52 

13 

COL 

5C-52 

A5 

COL 

50-54 

13 

CCL 

50-52 

413 

COL 

50-61 

413 

COL 

50-61 

413 

CCL 

50-61 

413 

COL 

50-61 

E  14.6 

CCL 

50-63 

E14.6 

CCL 

50-63 

E  14.6 

CCL 

50-63 

E14.6 

CCL 

50-63 

E  14  .6 

CCL 

50-63 

E  14.6 

CCL 

50-63 

A3 

CCL 

50-52 

E14.6 

CCL 

50-63 

F5.3 

CCL 

5C-54 

E  14.6 

COL 

50-63 

A2 

CCL 

50-51 

E  14.6 

CCL 

50-63 

E14.6 

CCL 

50-63 

F  5 .3 

CCL 

50-54 

A3 

CCL 

50-52 

E14.6 

CCL 

5C-63 

F14.6 

CCL 

5C-63 

A3 

(CL 

50-52 

A2 

COL 

50-51 

E14.6 

CCL 

5C-63 

A5 

CCL 

5C-54 

A4 

COL 

50-53 

E146 

CCL 

5C-63 

E  14.6 

CCL 

5C-63 

E  14.6 

CCL 

50-63 

E14.6 

CCL 

5C-63 

E 14 .6 

COL 

50-63 

TURBULENT 
051 
003 
001 
013 
000 
003 
000 
002 
00 1 
005 
010 
020 
000 
SHARP 
00* 

004007010013 
001 C02  C05004 
0030C3000000 
001030030000 
0.001 
0.435 
0.09 
1.0 
4.0 
24.0 

ABLATION 

0.0 

1.0 

0.001 

NO 

0.04 

0.1 

0.01 

RE  I  CHAR  DT 
1.05 
10.0 
AIR 
YES 
0.71 
CONST 
PSTAG 
0.39925 
96.84 
1340.0 
86U.0 
2.0 
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TABLE  IV-2 

INPUT  DATA  DECK  FOR  A  SHARP  CONE  AT  ZERO  INCIDENCE 

REF  110)  SHARP  cone,  laminar,  helium  injection,  alpha«o 


CARD 

C01 

IE 

13 

COL 

50-52 

051 

CARO 

002 

INJCT 

13 

CCl 

50-52 

003 

CARO 

003 

KAOcTA 

13 

CCL 

5C-62 

000 

CARD 

004 

K  EN32 

13 

CCL 

50-52 

001 

CARD 

C05 

KJNSET 

13 

COL 

50-52 

000 

CARD 

006 

UPKT 

13 

CCL 

5C-52 

003 

CARO 

CC  7 

K IRA  NS 

13 

CCL 

50-52 

001 

CARD 

COS 

LAHTRB 

13 

COL 

50-52 

001 

CARD 

GC9 

LPRT 

13 

CCL 

50-52 

U01 

CARO 

010 

will 

13 

COL 

50-52 

005 

CARD 

Oil 

NIT2 

13 

COL 

5C-52 

010 

CARD 

012 

NIT  3 

13 

CCl 

50-52 

020 

CARO 

013 

NOIVJ 

13 

COL 

50-52 

000 

CARO 

014 

NOSE 

A5 

COL 

50-54 

SHARP 

CARO 

015 

NSCLVE 

13 

CCL 

50-52 

004 

CARO 

016 

KPLOT 

413 

COL 

50-61 

001000000000 

CARO 

017 

RPkFL 

413 

CCl 

5C-61 

OOIOOOCOOOOO 

CARD 

018 

L  PLOT 

413 

COL 

50-61 

002003C04C0J 

CARD 

019 

LPRFL 

413 

CCl 

50-61 

001002003000 

CARD 

020 

AOTEST 

E14.6 

COL 

50-63 

0.001 

CARD 

021 

akstar 

E14.6 

CCL 

50-63 

0.435 

CARD 

022 

alamca 

E14.6 

CCL 

50-63 

0.09 

CARD 

023 

alet 

E  14 .6 

CCL 

50-63 

1.0 

CARD 

024 

alpha 

E  14.6 

CCL 

50-63 

0.0 

CARD 

025 

ASTAR 

E14.6 

CCL 

50-63 

26.0 

CARD 

026 

COOL 

A3  ' 

CCL 

50-52 

ABLATION 

CARO 

027 

CkALL 

F14.6 

COL 

50-63 

0.33179 

CARO 

028 

CRI 

F  5.3 

CCL 

50-54 

1.0 

CARO 

029 

CONV 

E  14.6 

CCL 

50-63 

0.001 

CARD 

030 

DISK 

A2 

COL 

50-51 

NO 

CARO 

031 

0  X I N  V  S 

E14.6 

CCL 

50-63 

0.0 

CARO 

032 

DX*AX 

£14.6 

CCL 

50-63 

0.10 

CARO 

033 

DX1 

F  5.3 

COL 

50-54 

0.01 

CARO 

034 

E'JrLAW 

A3 

CCL 

50-52 

RE  I CHAROT 

CARO 

035 

ETA  F  AC 

E14.6 

CCL 

50-63 

1.04 

CARD 

036 

ETMNF 

E14.6 

CCL 

50-63 

6.0 

CARD 

037 

GAS2 

A3 

CCL 

50-52 

HELIUM 

CARD 

038 

PLOT 

A2 

COL 

50-51 

YES 

CARO 

039 

PRl 

E  14 .6 

CCL 

50-63 

0.71 

CARD 

040 

PRT 

A5 

COL 

50-54 

ROTTA 

CARD 

041 

PROP 

A4 

COL 

5C-53 

PSTA 

CA»0 

042 

RTn 

E  14.6 

COL 

50-63 

0.197446 

CARO 

043 

TFS 

E14.6 

CCL 

SC-63 

269.2964 

CARD 

C44 

TSTAG 

E  14.6 

CCL 

50-63 

0.0 

CARO 

04  5 

VALUE 

E14.6 

COL 

5C-63 

16.9362 

CARD 

046 

XBAR 

E  14.6 

CCL 

50-63 

2.0 

CARD 

04  7 

G 

E  14.6 

CCL 

50-63 

1.4 

CARO 

048 

R 

E14.6 

CCL 

5C-63 

1716.0 

CARO 

04  9 

TH;T1 

E14.6 

CCL 

50-63 

9.0 

CARD 

050 

X“A 

E14.6 

COL 

50-63 

10.0 

CARO 

C51 

PEDG 

E14.6 

COL 

50-63 

0.2749 

CARO 

062 

U5DG 

E14.6 

CCL 

50-63 

7897.0 

CARD 

053 

T  =  DG 

E  14.6 

COL 

50-63 

460.09 

CARD  C64 
0.0 

0.0001 

0.08425 

0.19975 

RHOtOG 

F  14.6 

COL 

5C-63 

3. 4850- 
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TABLE  IV- 3 

INPUT  DATA  DECK  FOR  A  BLUNT  CONE 


REF (111 

BLUNT 

CONE  LAMI 

NAR  ARGCN  INJECTION 

CARO 

001 

IE 

13 

CCL 

50-52 

051 

CARD 

CC2 

1NJCT 

13 

CCL 

50-52 

001 

CARO 

003 

KADETA 

13 

COL 

50-52 

000 

CARO 

004 

KEN02 

13 

COL 

50-52 

001 

CARD 

005 

K3NSET 

13 

CCL 

50-52 

000 

CARD 

006 

KPRT 

13 

CCL 

50-52 

003 

CARD 

CO  7 

KTRANS 

13 

CCL 

50-52 

000 

CARO 

008 

L AMTRd 

13 

COL 

50-52 

001 

CARD 

CO  9 

LPRT 

13 

COL 

50-52 

001 

CARD 

010 

N1T1 

13 

CCL 

50-52 

005 

CARD 

on 

NIT2 

13 

COL 

5C-52 

010 

CARD 

012 

N1T3 

13 

CCL 

50-52 

020 

CARD 

013 

NU1NJ 

13 

COL 

50-52 

000 

CARD 

014 

NUSE 

A5 

CCL 

50-54 

BLUNT 

CARD 

015 

NSOL VE 

13 

CCL 

50-52 

003 

CARD 

016 

KPLOT 

413 

COL 

50-61 

001 3C0000003 

CARD 

017 

KPRFL 

413 

CCL 

50-61 

001000000303 

CARD 

018 

L  PLOT 

413 

COL 

50-61 

003010000000 

CARO 

019 

LPRf  L 

413 

COL 

50-61 

001030C00003 

CARD 

G2C 

AOTEST 

E14.6 

COL 

50-63 

0.001 

CARD 

021 

AKST AR 

E  14.6 

CCL 

50-63 

0.435 

CARD 

022 

ALAMDA 

E  14.6 

COL 

50-63 

0.09 

CARD 

023 

LEWTRB 

E14.6 

COL 

50-63 

1.0 

CARD 

024 

ALPHA 

E  14. 6 

COL 

50-63 

0.0 

CARD 

025 

ASTAR 

El.4.6 

CCL 

50-63 

26.0 

CARD 

026 

COOL 

A3 

COL 

50-52 

ABLATION 

CARD 

027 

CWALL 

F  14.6 

COL 

50-63 

0.0284 

CARD 

02B 

CRI 

F5.3 

COL 

5C-54 

1.0 

CARD 

029 

CONV 

E14.6 

CCL 

50-63 

9.01 

CARO 

030- 

DISK 

A2 

COL 

53-51 

NO 

CARD 

031 

OXINVS 

E14.6 

CCL 

50-63 

0.04 

CARD 

03  2 

DXKAX 

E14.6 

COL 

50-63 

0.10 

CARO 

033 

DXI 

F  5 .3 

COL 

50-54 

0.02 

CARD 

034 

EDYLAH 

A3 

COL 

50-52 

REICHAROT 

CARD 

035 

fcTAF  AC 

E  14.6 

CCL 

53-63 

1.94 

CARD 

036 

ETA  INF 

E  14.6 

COL 

50-63 

12.0 

CARD 

037 

CASZ 

A3 

CCL 

5C-52 

ARGON 

CARO 

038 

PLOT 

A2 

CCL 

50-51 

YES 

CARO 

039 

PRL 

E 14. 6 

COL 

50-63 

0.7 

CARD 

040 

PRT 

A5 

CCL 

50-54 

ROTTA 

CARD 

041 

PROP 

A4 

COL 

50-53 

PINF 

CARD 

042 

RTw 

E14.6 

CCL 

50-63 

0.06582 

CARD 

043 

TFS 

E14.6 

CCL 

50-63 

290.0 

CARO 

044 

T  ST  AC 

E  14.6 

CCL 

50-63 

8204. 0 

CARO 

045 

VALUE 

£14. 6 

CCL 

50-63 

0.00135 

CARD 

046 

XBAR 

E14.6 

COL 

50-63 

2.0 

CARD  047 

0.0 

0.01 

0.42514 

RNOSE 

E14.6 

COL 

5C-63 

0.063333 
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APPENDIX  V 

DESCRIPTION  OF  OUTPUT  DATA 


As  explained  in  Appendix  III  there  are  two  major  types  of  output  from 
the  program.  The  first  type  is  printed  output,  which  is  presented  in  two 
forms,  station  data  and  profile  data.  The  second  type  is  machine  drawn 
plots,  also  presented  in  two  forms,  surface  data  and  profile  data. 

In  addition  to  solution  results  and  plots,  the  program  prints  all  of 
the  input  data  cards  as  they  are  read  in.  Following  the  input  data  cards 
are  the  thermodynamic,  free-stream,  stagnation,  and  vehicle  data  calcu¬ 
lated  in  the  program  or  obtained  from  on-line  data  sets.  Unit  3  is  a 
summary  of  data  on  the  windward  streamline.  Definitions  of  the  variables 
in  unit  3  are  identical  to  those  of  the  same  variables  In  the  station  data. 

This  appendix  will  attempt  to  define  the  output  by  listing  the  variable 
name  as  it  appears  in  the  output,  along  with  a  definition  of  the  variable. 
Printed  output  will  be  covered  first,  followed  by  the  plotted  output. 

The  program  also  prints  miscellaneous  messages,  which  are  described 
following  the  section  on  plots.  The  final  section  of  this  appendix  deals 
with  output  printed  by  the  edge  property  subroutines. 

SECTION  I:  PRINTED  OUTPUT 


1.1  Station  Data 


Station  data  includes  quantities  such  as  geometry,  edge  quantities, 
and  surface  properties  which  do  not  vary  with  distance  from  the  body.  In 
blunt  cone  cases  all  distances  are  initially  in  a  wind-fixed  coordinate 
system.  At  the  end  of  the  spherical  wedge  section  (the  sonic  line)  the 
coordinates  are  converted  to  a  body-fixed  system. 

Line  1 

S  X,  distance  from  the  stagnation  point  along  the  body  surface, 

in  feet. 

S/REF  nondimensional  surface  distance.  For  a  sharp  cone  REF  is  the 
total  slant  length  or  XSTA(NSOLVE) .  For  a  blunt  cone  REF  is 
the  nose  radius. 

Z  axial  distance  from  the  stagnation  point,  in  feet. 

Z/REF  nondimensional  axial  distance  where  REF  is  as  defined  for  S/REF. 
Line  2 

R  local  body  radius,  in  feet. 
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R/REF 

DX 

NIT 

Line  3 

XI 

DXI 

DXDXI 

CWALL 

Line  4 

PE 

TE 

UE 

VE 

MACHE 

Line  5 

DPEDX 

DTEDX 

DUEDX 

DVEDX 

RHOE 

Line  6 

DPEDW 

DTEDW 

DUEDW 

DVEDW 

ROEMUE 


75-55 

nondimensional  local  body  radius. 

aX,  streamwise  step  size,  in  feet. 

number  of  iterations  to  obtain  the  solution. 

C,  transformed  streamwise  coordinate. 

A£,  streamwise  step  size  In  the  transformed  coordinate,  c. 
3X/9£. 

local  injection  rate,  described  in  Appendix  IV. 

Pe,  edge  pressure  in  PSF. 

te,  edge  temperature  in  °R. 

ue,  streamwise  edge  velocity  in  FPS. 

Ve,  cross  flow  edge  velocity  in  FPS. 

Me,  edge  Mach  number. 

9Pe/35. 

9te/3C. 

9Ue/9£. 

9Ve/9£. 

pe,  edge  density  in  slugs  per  cubic  foot. 

9Pe/9«j>. 

9tg/ 9 4> . 

3Ug/9ij> . 

3Ve/9(f. 

Pe^e>  density  viscosity  product  at  the  edge. 
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Line  7 

LOCAL  EDGE  REYNOLDS  NUMBER  = 


Peuex 

pe 


Une_8 

wv 

CFXINF  Cf  =  — ,  streamwise  skin  friction  coefficient 

x»  p  u  2 
00  00 


CFXEDG 


2t 

Cf  =  wx  ,  streamwise  skin  friction  coefficient  based  on 
x  l 

e  Peue 

edge  conditions. 


CFWINF 


CFWEDG 


LINE  9 
CMEDGE 


CHINF 

STEDGE 

STINF 


2t 


w. 


P  u  6 

00  oo 


conditions. 


transverse  skin  friction  coefficient  based  on  free- 


cf. 


2t 


w., 


peue 


conditions. 


transverse  skin  friction  coefficient  based  on  edge 


Cu  =  - — - ,  heat  transfer  coefficient  based  on  edge 

he  Peue  (H«-Haw) 

properties. 

9w 

Cl.  =  k-tj — iYj — - — r*  ,  heat  transfer  coefficient  based  on  free- 
co  «  ^Hw~Haw' 

stream  conditions. 


st  = _ yw _ 

e  peue  (Hw-H0) 

qw 

St»  =  PJI..  (Hw-H0) 


local  Stanton  number  based  on  edge  conditions, 
local  Stanton  number  based  on  free-stream 


conditions. 


Line  10 

q 

QW  — ,  wall  heat  transfer  coefficient 

p  u  J 

00  Q> 
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CHIMAX 
Line  11 


^max >  maximum  vorticity  Reynolds 


number,  where  |y  ■ 


LONGITUDINAL  SKIN  FRICTION 
DELTA*(X) 

THETA (X) 

Line  12 

TRANSVERSE  SKIN  FRICTION 
DELTA*(PHI) 

THETA (PH I) 

Line  13 


tw  ,  in  PSF. 
wx 

6x*  ,  streamwise  boundary-layer  displacement 
thickness  in  feet. 

5x  »  streamwise  boundary-layer  momentum 
thickness  in  feet. 


TW(J|  >  in  PSF. 

«♦  »  transverse  boundary-layer  displacement 

thickness  in  feet. 

®<(i»  transverse  boundary-layer  momentum 
thickness  in  feet. 


WALL  HEAT  TRANSFER  RATE  qw,  in  BTU/ft2/sec. 

DELTA  (Ft)  6,  the  boundary -layer  thickness  in  feet. 

Line  14 

TRANSITION  INTERMITTENCY  FACTOR  If,  percentage  of  full  turbulent  achieved. 
1.2  Profile  Data 

Three  groups  of  profile  data  are  printed  by  the  program.  Every  other 
point  is  printed  in  the  profile  arrays. 

Group  I 

ETA  n,  the  transformed  normal  coordinate. 

Y  y,  the  physical  normal  distance  in  feet. 

F  u/ue,  the  nondimensional  streamwise  velocity  profile. 

FN  3F/3n. 
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G  w/ue,  the  nondimensional  crossflow  velocity  profile. 

GN  3G/3n. 

H  H/He,  the  nondimensional  stagnation  enthalpy  profile. 

HN  9H/3n. 

C  pij/pgjje,  the  nondimensional  density-viscosity  product  profile. 

CN  3C/3n. 

V  transformed  normal  velocity  profile. 

Group  II 

ETA'  n,  transformed  normal  coordinate. 

Y/L  y/XSTA{NSOLVE) ,  nondimensional  physical  normal  distance  profile 

ROROE  p/pe,  the  nondimensional  density  profile. 

XMU  y,  viscosity  profile. 

E+  e+.  ratio  of  eddy  viscosity  to  the  laminar  viscosity. 

CHI  <l>,  profile  of  the  vorticity  Reynolds  number. 

LEL  Le,  laminar  Lewis  number  profile. 

LET  Let*  turbulent  Lewis  number  profile. 

PRL  Pr,  laminar  Prandtl  number  profile. 

PRT  Prt*  turbulent  Prandtl  number  profile. 

SPHT  Cp,  specific  heat  at  constant  pressure. 

Group  III 

ETA  n»  transformed  normal  coordinate. 

Y/L  y/X$TA(NSOLVE),  nondimensional  physical  normal  distance  profile 

z  Cf/Cf  .  free-stream  mass  fraction  profile. 

ZN  3z/3n. 

TEMP  t,  the  dimensional  temperature  profile  in  °R. 

T/TE  t/tg,  the  nondimensional  temperature  profile. 
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TN  3T/TE/3n. 

CP/CV  Cp/Cv,  ratio  of  specific  heats. 

RHO  p,  the  dimensional  density  profile  in  slugs  per  cubic  foot. 

SECTION  II:  PLOTTER  OUTPUT 

As  was  described  in  appendices  I  and  II  the  program  generates  four 
types  of  machine  plots.  Each  type  of  plot  will  be  described  below  by 
presenting  an  example  of  the  machine  drawn  plot. 

Streamwise  Surface  Plots  at  a  constant  $ 


in 

u 


ODiO2D33^DS3SO7D0D9OL.  QO 


LEGEND 

a  4.  00 
»  *.  ISO 
»  4.  90  0 
*  «.  135  0 


S/L 


For  sharp  cones  the  abscissa  is  S/L.  For  blunt  cones  the  abscissa  is  S/R 
and  is  a  log  scale.  The  ordinate  in  either  case  may  be  linear  or  logaritR- 
mic  depending  on  the  particular  variable  being  plotted. 
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Transverse  Surface  Plots  at  a  Constant  S 


LEGEND 

o  5-  .333 
*  5.  .955 
.  S.  1.232 
>  S.  1.  732 


$ 


In  these  plots,  $  is  the  circumferential  angle  with  4>  =  0.0  being  the 
windward  plane.  Again  the  ordinate  may  be  either  linear  or  logarithmic 
depending  on  the  data  being  plotted. 

Profile  Plots  versus  S  at  a  Constant  $ 


LEGEND 

e  S.  .393 
»  S.  .  365 
.  5.  1.232 
*  S.  1.  732 


W/Ue 
#.  135.0 
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In  cases  where  either  axis  of  a  plot  is  logarithmic  the  numbers  printed 
along  the  scale  are  the  logarithms  of  the  numbers  being  plotted.  Therefore 
a  -4.00  on  the  above  Y/L  scale  represents  a  Y/L  =  0.0001. 

Profile  Plots  versus  <6  at  a  Constant  S 


LEGEND 
o  ».  00 

i  «■ 

.  *.  90  0 
*  *.  i.35  0 


S-  . 399 


As  many  as  four  curves  may  appear  on  each  plot,  as  specified  by  the 
user.  The  maximum  number  of  plots  drawn  is  56.  This  number  of  plots 
would  only  be  drawn  for  a  full  3-D  problem  having  both  turbulence  and  mass 
transfer.  The  plots  which  are  built  into  the  program  are  as  follows: 

Eight  surface  plots,  Pe,  Me,  6,  CfY  ,  St,*,  qw/qWo,  Cfj  ,  and  5*  in  each 
direction  for  a  total  of  16  plots/00  0 

Five  profile  plots,  u/u  ,  w/ue,  t/te,  Cf/Cf  ,  and  e+  at  each  of  four  con¬ 
stant  x  and  four  constant  <f>  locations;  for  a  maximum  of  40  plots. 

SECTION  III:  MISCELLANEOUS  MESSAGES 

The  program  has  a  few  internal  messages  which  are  written  to  indicate 
problems  with  the  solution,  or  coordinate  adjustments.  A  message  is 
printed  by  subroutine  ADDETA  whenever  n»  is  adjusted  up  or  down.  The  direc¬ 
tion  of  adjustment  is  given  along  with  x>  the  old  n*  and  the  new 

A  message  is  printed  by  subroutine  CHANGX  indicating  the  beginning  of 
transition  or  mass  transfer.  Included  in  the  messages  are  the  values  of  X 
and  the  particular  integer  counter  involved.  A  similar  message  is  also 
printed  by  CHANGX  when  mass  transfer  ends. 
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Whenever  the  program  fails  to  obtain  a  converged  solution  within  NIT3 
iterations,  a  message  is  printed  by  subroutine  CONTRL  to  that  effect  which 
includes  the  values  of  the  transverse  and  streamwise  solution  counters  and 
NIT.  If  this  should  occur  three  consecutive  times,  a  message  will  be 
printed  indicating  that  execution  is  terminating. 

If  a  particular  boundary-layer  problem  drops  all  of  its  circumferential 
solution  planes  due  to  convergence  problems,  a  message  will  be  printed  by 
CONTRL  indicating  that  execution  is  terminating. 

A  normal  termination  of  the  program  is  indicated  by  the  message  "THE 
END"  printed  out  after  the  last  station  results. 

SECTION  IV:  PRINTOUT  BY  EDGE  DATA  SUBROUTINES 

When  DISK  =  YES  and  unit  30  is  defined  as  a  printer  in  the  job  control 
language,  subroutines  DISKIN  and  WEDGE  generate  printed  output  showing  the 
fourier  coefficient  data  being  stored  on  unit  10  for  use  in  the  boundary 
layer  solution.  A  complete  description  of  this  output  can  be  found  in 
Frieders  and  Lewis  (Ref.  7)  in  their  descriptions  of  the  DISKIN  and  WEDGE 
subroutines. 


Printout  is  also  generated  on  unit  6  when  DISK  =  YES  and  NOSE  =  BLUNT. 
This  printout  appears  just  before  the  first  station  data  and  is  printed  by 
BLUNT1 .  It  lists  the  geometry  and  edge  data  over  the  sphere  cap  and  wedge 
sections  of  the  blunt  cone.  The  program  interpolates  in  these  tables  to 
find  the  edge  properties  for  solution  points  in  these  two  regions.  The 
variables  printed  by  BLUNT1  are  defined  as  follows: 

NOTE:  distances  are  in  wind-fixed  coordinates. 


ZB 

XB 

RB 

PEB 

UEB 

TEB 

XMB 


axial  distance  from  the  stagnation  point,  in  feet, 
surface  distance  from  the  stagnation  point,  in  feet, 
local  body  radius,  in  feet. 

Pe,  edge  pressure  in  PSF. 
ue ,  edge  velocity  in  FPS. 
te,  edge  temperature  in  °R. 

Me,  edge  Mach  number. 
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APPENDIX  VI 
JOB  CONTROL  LANGUAGE 


The  job  control  language  in  this  appendix  is  intended  only  as  a  guide 
for  the  user.  This  JCL  was  used  on  an  IBM  370/158  machine,  and  therefore 
includes  items  pertaining  only  to  that  machine.  The  user  will  find  the 
DCB  parameters  useful  in  writing  his  own  JCL. 

The  computer  program  should  be  overlayed  to  avoid  excessive  core 
requirements.  The  JCL  presented  in  Table  I  assumes  an  overlayed  program, 
and  includes  the  linkage  editor  control  cards  for  the  overlay  structure. 

Following  is  a  description  of  the  output  and  input  data  sets  by  unit 
number. 

FT06F001  printer  output  unit  for  station  and  profile  data. 

FT03F001  printer  output  unit  for  the  summary  of  windward  plane  surface 

data. 

FT04F001  direct  access  unit  for  storing  the  solutions  of  a  blunt  cone's 
spherical  wedge  section  for  later  use  as  starting  data  for  the 
afterbody  solution. 

FT08F001  direct  access  unit  for  storing  current  solutions. 

FT10F001  tape  or  disk  unit  for  storing  the  edge  data  for  a  vehicle- 
inviscid  flow  field  combination. 

FT13F001  plotter  data  set;  tape  or  disk  unit  for  storing  streamwise 
surface  data  versus  x  at  a  constant  <}>. 

FT14F001  plotter  data  set;  tape  or  disk  unit  for  storing  profiles 
versus  <j>  at  a  constant  x. 

FT15F001  plotter  data  set;  tape  or  disk  unit  for  storing  profiles 
versus  x  at  a  constant  <t> . 

FT16F001  plotter  data  set;  tape  or  disk  unit  for  storing  streamwise 
data  versus  $  at  a  constant  x. 

FT25F001  tape  or  disk  unit  corresponding  to  unit  30  in  the  Black  and 
Lewis  inviscid  program;  used  for  first  run  of  a  problem  to 
establish  edge  data  on  unit  10. 

FT30F001  printer  output  unit  from  subroutines  DISKIN  and  WEDGE  showing 
edge  data  coefficients. 

FT69F001  tape  or  disk  unit  for  storing  the  input  data  cards  in  card 
image  format. 
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The  user  should  note  that  units  10,  13,  14,  15,  16,  25,  and  69  in 
Table  I  are  coded  as  on-line  disk  data  sets.  Any  one  or  all  of  them  can 
be  used  as  tape  or  off-line  disk  data  sets  with  the  appropriate  changes 
in  the  JCL. 
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TABLE  VI-1 

JOB  CONTROL  LANGUAGE 


/•PRIORITY  IDLE 

/•MAIN  TIME =100 ,LINCS«  5C .0  EG  1 GN-3CCK 
/•FORMAT  Pl,P£N»XHNE,COlCR«eLACK,CCNAMF»CALCOMP 
//  EXEC  FORT GCLCtPARM.LKEO*1 LIST iOVLY',Lltl= PL CTLI&* 
//  PARM.GO-1 DEST*PLT 1,PAPER=A0.PT|ME=119« 

//FORI •  SYS  IN  DO  • 


FORTRAN  SOURCE  STATEMENTS 


//LKEO.SYSIN  00  • 

INSERT  DERIV3.FC3.UER IV 

INSERT  ASS VAR, BLUNT, CCNVRG.DEP VAR ,F INDIF.FR STRM.GEOH, I NTECR.PDECOF,  X 

STAG.TMPRTR , UNIT  10, kSCL VE , X ICORD, XSOL VE ■ 2C00R0, POLY 
INSERT  INJECT, SURFAS 
INSERT  1RBLNT.TRANSN, PLOTS 
OVERLAY  ONE 

INSERT  AERO,  IMT,  INPUT,  CUT! 

INSERT  KEF, THERMO 
OVERLAY  CNE 

INSERT  CISKIN.FORIEA, HEDGE 
INSERT  FLUOAT 
OVERLAY  CNE 

INSERT  CCNTRL .GMTPYfHIXTUR,  INTER3 

INSERT  CON  I  CL , E  OGE , E0G2 , IECCEF, CL  O.CLOEOG, OUTPUT , SOLPNT , GASPRP 

INSERT  LOCK 

OVERLAY  TmJ 

INSERT  EDYVIS.TRBPRL 

OVERLAY  T MO 

INSERT  ABCOE, SOLVE, XMCM, ENERGY 

OVERLAY  TWO 

INSERT  PH  I  MOM 

OVERLAY  TkO 

INSERT  SPECIE, SPECBC 

OVERLAY  ThO 

INSERT  CHA.NGX 

OVERLAY  TkQ 

INSERT  VC ALC , HALL 

OVERLAY  TWO 

INSERT  EGPROP 

OVERLAY  THREE 

INSERT  SHARP! 

OVERLAY  THREE 
INSERT  EOGCCF 
OVERLAY  ThREE 

INSERT  PLUNTl .BLUNT2, INTERS, FD5 

OVEFLAY  Twu 

INSERT  PHOPTY.OUTZ 

OVERLAY  TkQ 

INSERT  ADCETA 

OVERLAY  CNE 

INSERT  PLOTCK,AEKCPT,MAX,MIN,LEGENO,SUBLEL 

/• 

//G0.FTC6FCGI  DD  SYSCUT  =  A  ,DCB=BLKS I ZE« 1 3 3 

//GO. FT C3F CO  1  OD  S YSOUT  =  A , CC fi*l R ECFP=F A , BLKSI Z E- 133 1 

//GO. FT  OAF  C31  DO  UN  I T-SYSQA , 0 l$P«< NEk, DELETE) , SP ACE= 1 6A6A , < 6 1 , 10 1 1 
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//GO.FTCBFOOl  DD  UM  T*  SVSOA  t  Cl  SP  =  ! NEW, DELETE  J  .  S«*ACE  =  16464, ( 61, 10 1 1 
//GO.FTlOFOiU  00  OSN=SHAKP.A0APS.A5OBF3,UMT=SYSCA, 

//  VCl»SEa*US=RPK, 

//  DISP=IOLU,KfcEP)  .nC3*!RECFM=VHS,LRECL*A92, 3LKS  IZE  =  127961 

//GO.FT13F001  OD  UM  T=  SYSCJA , DC B=  !R ECFK=F B,  LKEC L  =  120 . 3LKS  I  ZE=3000 )  , 
//  SPACE* !  T  R  K ,  2C  I 

//GO.FTIAI  C01  00  UMT*SVSDA,0C8*|RECFM*FB,IRECL*722*,BLKSIZE*7224)  , 
//  SPACE*! TRK.20 ) 

//GO. FT  l St- 001  00  UM  T*  SVSOA, CCB*  IR ECFM*F Bt  LRECL*7224  ,BLKS  I Z E  =  7224)  ■ 
//  SPACE  * ( T  P  K 1 20  I 

//GO.FT16FOC1  00  UMT*  SVSOA,  CCB*!RECFM*FB,LRECL*  1 20 , BLKS I ZE  =  3000 1 , 
//  SPACE*! TP  K, 20  } 

//GO.FT2SF001  00  DUPPY 
//G9.FT30F001  DO  OUKPY 

//G0.FT69FG01  00  UM T=S VSDA  ,0 1 SP= I  NEW, DELET E I , SPACE* ITRK.3J , 

//  OCB*(RECFM*FB,LR ECL* 80 , BLKS I ZE* 1600  I 

//GO.SVSIN  DD  * 


INPUT  DATA  CARDS 


/* 

// 
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APPENDIX  VII 

SAMPLE  RUNS  OF  THE  COMPUTER  PROGRAM 

This  appendix  presents  samples  of  some  printed  output  from  various 
runs  of  the  computer  Drogram.  The  cases  presented  are  the  following  (in 
order  of  presentation): 

1.)  Full  three-dimensional  solution  of  Cleary's  blunt  cone  (Ref.  40) 

at  5  degrees  angle  of  attack,  and  with  Re^  =  1.2  x  106/ft.  and 

r  =  1.1  inches, 
nose 

2)  Full  three-dimensional  solution  of  Cleary's  sharp  cone  (Ref.  40) 
at  5  degrees  angle  of  attack  and  with  Re^  =  1 .2  x  106/ft. 

3)  A  sharp  cone  at  zero  angle  of  attack  with  injection  of  carbon 
dioxide;  a  windward  streamline  solution  only.  See  Ref.  10. 

4)  A  blunt  cone  at  zero  angle  of  attack  with  injection  of  argon 
beginning  at  the  stagnation  point;  a  windward  streamline 
solution  only.  See  Ref.  11. 

Output  from  unit  6  is  presented  first  for  each  case.  This  output 
includes  a  complete  list  of  the  Input  data,  and  for  blunt  cones  it  also 
contains  the  updated  XSTA  array.  Following  the  input  data  is  a  station 
by  station  listing  of  the  results  Including  profiles  where  called  for 
by  the  user. 

Output  from  unit  3  is  presented  after  unit  6  for  each  case.  Unit  3 
presents  the  tabulated  results  for  some  boundaryrlayer  parameters  along 
the  windward  streamline  ($  =  0°). 

Due  to  space  limitations  complete  solutions  to  each  case  can  not  be 
provided  in  this  volume;  therefore,  only  selected  portions  of  each  solution 
are  presented  in  this  appendix.  Those  selected  portions  should  aid  a  user 
in  checking  his  copy  of  the  computer  program  after  conversion  at  another 
machine  installation. 

Each  unit's  output  is  preceded  by  the  header  page  for  that  unit  as 
printed  by  the  computer. 
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I.  Full  Three-Dimensional  Solution  of  a  Blunt  Cone  at  Angle  of  Attack. 
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THREE-DIMENSIONAL  BOUNDARY  LAYER  PROGRAM 
FOR 

LAMINAR  PR  TURBULENT  FLOW 
WITH 

BINARY  GAS  INJECTION 
DEVELOPED  BY 
•*.C.  FRIEDERS 

AEROSPACE  ENGINEERING  DEPARTMENT 
VIRGINIA  POLVTFCHMC  INSTITUTF  ANO  STATE  UNIVERSITY 
.  BLACKSBURG.  VA.  2*060 


INPUT  DATA  CARDS  ARE  AS  FOLLOVSs 
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0.216073D 

04 
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01 

o 
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0.1329000 

01 
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0.1361330 

03 

0.2525490 

04 

0.1464540 

04 

0.134345D 

01 

tfl 

0.3615820-01 

0.8436200-01 

0.7294590-01 

0.135219D 

03 

0.2532210 

04 

0.1466710 

04 

0.134832D 

01 
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cn 

$  •  o.o 

r  -  o.o 
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S/REF-  0.0 
R/REF-  0.0 
OX!  -  0.0 


DIMENSIONAL  EDGE  PROPERTIES 

PE  -  0.4003460  03  TE  »  0.2000000  04 

OPEOX-  0.0  DTEOX-  0.0 

OPEDWb  0.0  OTEOW>  0.0 

LOCAL  EDGE  REYNOLOS  NUMBER  -0.0 


NONOI MENSIONAL  BOUNDARY  LAYERS  PARAMETERS 

CFXINP-  0.0  CFXEDG-  0.0 

CMFOGE-  C.O  CHINE  =  0.2474400-01 

OH  «-0. 7686190-02  CHIMAX-  0.0 


0 IMENS I ONAL  BOUNDARY  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION-  0.0  PSP 

TRANSVERSE  SKIN  FRICTION  -  0.0  PSP 

__  HALL  HEAT  TRANSFER  RATE  — 0.2037740  02  BTU 

M 

KJ 


ETA 

Y 

F 

FN 

0.0 

0.0 

0.0 

0.545815 

0.0 

0.C09890 

C. 1000-05 

0.005397 

0.545625 

0.0 

0.020587 

0.2090-05 

0.011233 

0.545405 

0.0 

0.032157 

0.3290-05 

0.017541 

0.545145 

0.0 

0.044671 

0.4600-05 

0.024361 

0.544P41 

0.0 

0.058206 

0.6030-05 

0.031733 

0.544484 

0.0 

0.072845 

0.761D-05 

0.039701 

0.544065 

0.0 

0.088679 

0.933D-05 

0.048312 

0.543573 

0.0 

0. 1058 05 

0.1120-04 

0.057617 

0.542997 

0.0 

0.124329 

0.1330-04 

0.067669 

0.542322 

0.0 

0.144364 

0. 1560-04 

0.078527 

0.541531 

0.0 

0.166034 

0.1920-04 

0.090252 

0.5406C3 

0.0 

0. 1894  72 

0. 2130-04 

0. IC2910 

0.539517 

0.0 

0.214823 

0.24*0-04 

0.116572 

C. 538245 

0.0 

0.242243 

0. 275D-C4 

0.131310 

0.536754 

0.0 

0.271900 

0.3130-04 

0. L47203 

0.535907 

3.0 

0.303977 

0. 355D-04 

0.164332 

0.532961 

0.0 

0.338671 

0. 532D-04 

0.182782 

0.530563 

0.0 

0.376197 

0.454D-04 

0.202640 

0.527752 

0.0 

0.416784 

0.5120-04 

0.223995 

0.524457 

0.0 

0.460684 

0.5770-04 

0.246935 

0.520594 

0.0 

0.503165 

0.6490-04 

0.271548 

0.516063 

0.0 

0.559522 

0.7300-04 

0.297918 

0.510749 

0.0 

0.615069 

0.8220-04 

0.326119 

0.504517 

0.0 

0.675148 

0.9240-04 

0.356215 

0.497208 

0.0 

l  -  0,0 

ZSREF-  0.0 

OX  -  0.100000-01 

NIT  -  4 

PHI  >  0.0  OEG. 

OXOXI*  0.0 

CWALL-  0.0 

UE  -  0.0 

VE  -  0.0 

HACHE  -  0.0 

OUEDX-  0.0 

DVEOX-  0.0 

RHOE  -  0.1165380-03 

OUEOW-  0.0 

DVEOWa  0.0 

RHOEMUE*  0.1134540-09 

CFWINF-  0.0  CFMEOG-  0.0 

STEOGE-  0.0  ST  INF  -  0.1881400-01 


DELTA*! X)  •  0.4249490-04  THETA! X)  -  0. 1664790-03 

OELT A*l PHI  1-  0. 1869140-02  THETA! PHI  I-  0.0 

DELTA  IFTJ  -  0.9761630-03 


GN  H  HN  C  CN  V 


0.0 

0.256579 

0.267124 

1.334317 

-0.202861  0.0 

0.0 

0.259223 

0.267537 

1.332316 

-0.201683  -0.2670-04 

0.0 

0.262087 

0.267983 

1.330166 

-0.200436  -0.1160-03 

0.0 

0.265190 

0.268464 

1.327854 

-0.199125  -0.2820-03 

0.0 

0.268553 

0.268983 

1.325371 

-0. 197745  -0.5440-03 

0.0 

0.272198 

0.269544 

1.322705 

-0.196297  -0.9240-03 

0.0 

0.276148 

0.270148 

1.319842 

-0.  194781  -0.1450-02 

0.0 

0.280431 

0.270799 
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1.000000 

0.0 

0. 8C601 ID 

03 

0.40  ?n06D 

00 

0.2948510 

00 

1.390675 

0.2891 71D-03 

0.508165 

0.3620-04 

1.000000 

0.0 

0.8340510 

03 

0.4170250 

00 

0.2956350 

00 

1.389342 

0.2794500-03 

0.559522 

0.4080-04 

1.000000 

0.0 

0.8644530 

03 

0.4322260 

00 

0.2963040 

00 

1.387823 

0.2696220-03 

0.615069 

0.4590-04 

1.000000 

0.0 

0.8974010 

03 

0.4487010 

00 

0.2968030 

00 

1.386097 

0.2597220-03 

0.675148 

0.5160-04 

l.COOOOO 

0.0 

0.9330850 

03 

0.4665420 

00 

0.2970600 

00 

1.384146 

0.2497900-03 

0.740130 

0. 581D-04 

l.OOOCOC 

0.0 

0.9716930 

03 

0.4858470 

00 

0.2969880 

00 

1.381950 

9.2398650-03 

0.810415 

0.6530-04 

1.003000 

0.0 

0.1313410 

04 

0.5067060 

00 

0.2964720 

00 

1.379497 

0.2299900-03 
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1.009000 

0.0 
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04 

0.5292980 

09 
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0.968657 

0.827D-04 

1.009000 
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0.1106850 

04 

0.5534250 

00 

0.2935070  00 

1.373793 
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1.057593 
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0.0 
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0.2906650  00 

1.370554 
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1.153779 
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1.000000 

0.0 
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C4 
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1.363439 
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1.379345 
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0.1469110 
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00 

0.2510960  00 

1.752064 
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1.766333 
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1.007000 

0.0 
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04 

0.7692340 

00 

0.2355420  00 

1.348416 

0.1514980-03 

1.923382 

0.2130-03 

l.OOOOOC 

0.0 

0.16CR180 

04 

0.8040920 

00 

0.2166890  00 

1.344988 

0.  144931 C-03 

2.366651 

0.2470-03 

1. 000000 

0.0 

0.1676740 

04 

0.8383690 

00 

0.1944990  00 

1.341850 

0.1390050-03 

2.266812 

C.  27*0-03 

1. ''03000 

0.0 

0.1742310 

04 

0.9711560 

00 

0.16927SP  00 

1.339051 

0.1337730-03 

2.461673 

0.3150-03 

1.O09030 

0.0 

0.1802900 

04 

0.9014920 

00 

0.1417830  00 

1.376619 

0.1292780-03 

2.672436 

0.3550-03 
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s.o 

0.1856560 

04 

0. 9232780 

00 

0.113275D  00 

1.334562 

0.  125542C-03 

2.900396 

0.3990-03 

1 .300000 

c.o 

0.1901640 

04 

0.9SCB19D 

00 

0.8543450-01 

1.332884 

0.1225650-03 

3.146959 

0.4490-03 

1.0C3CCC 

0.0 

0.1977190 

04 

0.9685950 

00 

0.631077D-01 

1 .331578 

0.1203160-03 

3.413640 

0.5030-03 

1  .OC  3000 

0.0 

0.  1963170 

04 

0.9B  15830 

00 

0.3890570-01 

1.330626 

0.1 187240-03 

3.702733 

0.5620-07 

1 .309000 

c.o 

0.1960490 

P4 

0.9902450 

00 

0. 2279740-01 

1  .729990 

0.11 76P6P-03 

4.314363 

0. 6260-03 

1  .300000 

0.0 

0.1990850 

04 

0.9954260 

CO 

0.1186540-01 

1.329608 

0.1170730-03 

4.351501 

0.6960-03 

l.ocrooc 

c.o 

0 .1996300 

04 

0.99P1490 

00 

0.5361540-02 

1.329407 

0.1167540-03 

4.716473 

0.7720-03 

1  .003000 

0.0 

0.1908750 

04 

0.9993750 

00 

0. 204540D-02 

1.329316 

0.1166130-03 

5.111227 

0.6540-03 

l.OOOCOC 

0.0 

0.1999660 

C4 

0.9998320 

00 

0.6362600-03 

1.3292P2 

0.1165570-03 

5 . 538 1 93 

0.9430-03 

1.0C9C0C 

0.0 

0.1999940 

04 

0.9999690 

00 

0.1543670-03 

1.320272 

0.1165410-03 

6.300330 

0.1340-02 

l.OOOCOC 

0.0 

0.2300000 

04 

0.1000000 

01 

0. 1120900-04 

1.329270 

0.1165380-03 

S  *  0.1090000-01 

R  -  0.9980170-02 

X!  •  0.8724440-14 

S/REF*  0.1090990  00 
R/REF*  0.1088830  00 
DXI  *  0. 8724440-14 

l  -  0.5449530-03 

OX  *  0.10000D-01 

OXDXI *  0.2861970  12 

2/REF- 
NIT  - 
CWALL- 

0.5945380-02 

6 

0.0 

PHI  -  0.0  DEG. 

DIMENSIONAL  EDGE  PROPERTIES 

PE  •  0.3946580  03 
OPEDX  »-0.3  264810  15 
OPEDV-  0.0 

TE  -  0.199184D  04 
DTEOX—0. 4711350  IS 
OTEOW-  0.0 

UE  -  0.3132490  03 
DUE OX*  0.9035290  16 
OUEDW.  0.0 

VE  -  0.0 

OVEOX*  0.0 

DVEDW-  0.0 

MACHE  -  0.1431290  00 
RHOE  *  0.1153520-03 
RHOEMUE-  0.1119870-09 

LOCAL  EDGE  REYNOLDS  NUMBER  >0.3721980  03 


N0ND1MENS10NAL  BOUNDARY  LAYERS  PARAMETERS 


CFXINP-  0. 5366940-02 
C HEDGE*  0.7280Z4D-01 
OH  *-0. 9C3702D-02 


CFXEOG*  0.2057210  00 
CHINF  -  0.2909270-01 
CHI  MAX*  0.3987000  01 


CFWINF*  0.0  CFHEDG-  0.0 

STEOGE*  0.5535900-01  ST INF  -  0.2212050-01 


0 IMENSIONAL  BOUNDARY  LAYER  PARAMETERS 


LONGITUDINAL  SKIN  FRICTION-  0.116427D  01  PSF 
TRANSVERSE  SKIN  FRICTION  -  0.0  PSF 
MALL  HEAT  TRANSFER  RATE  —0.2419380  02  BTU 


DELTA*! XI  — 0.2860S40-04  THETA! XI  -  0.1397790-03 

0ELTA*!PHtl«  0. 1877740-02  THETAIPHII-  0.0 

DELTA  1  FT )  -  0.9164140-03 
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0.0 
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0.259648 

0.310629 
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0.0 

0.0 
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1.328498 

-0.231938  -0.4340-03 

9.332157 

0. 3250-05 

0.333485 

1.03C640 

0.0 

0.0 

0.266579 

0.311926 

1 .325825 

-0.23C14C  -0.106D-02 

0.044671 

0. 4550-05 

0.046329 

1.0220»0 

3.0 

0.0 

0.270487 

0.312651 

1.322957 

-0.228259  -0.2030-02 

0.358206 

0.5980-05 

0.960100 

1.012654 

0.0 

0.0 

0.274724 

0.313430 

1.319881 

-0.226293  -0.3430- 

■02 

0.077845 

0.7550-05 

0.074849 

1 • OC  224  4 

0.0 

0.0 

0.279319 

0.314267 

1.316583 

-0.224244  -0.5350- 

■02 

3.359679 

0.9270-05 

0.090628 

0.999766 

0.0 

0.0 

0.284302 

0.315166 

1.313050 

-0.222110  -0.7890- 

■02 

0.105805 

0.1120-04 

0.107488 

0.078123 

0.0 

0.0 

0.289708 

0.316129 

1.309265 

-0.  2 1  °S9  3  -0. 1120-01 

0.124329 

0.1330-04 

0.125478 

0.964210 

0.0 

0.0 

0.295574 

0.317159 

1.305213 

-0.217591  -0.1530- 

■01 

0.144364 

0.1560-04 

0.144644 

C. 949920 

3.0 

0.0 

0.301939 

0.318257 

1.300878 

-0.215706  -0.2050-01 

0.166034 

0. 1810-04 

0.165026 

0.932146 

0.0 

0.0 

0.308848 

0.319425 

1.296241 

-0.212735  -0.2690- 

■01 

0.187472 

0.7130-04 

0*1 86659 

0.913782 

0.0 

0.0 

0.316350 

0.320663 

1.291286 

-0. 210179  -0.3480-01 

0.214823 

0.2413-04 

0.209570 

0.593724 

0.3 

0.0 

0.324495 

0.321968 

1.235991 

-0.207534  -0.4430- 

■01 

0.242243 

0.2760-C4 

0.2337  77 

0.871881 

0.0 

0.0 

0.333343 

0.323336 

1.780339 

-0.  2047°7  -0.5570- 

■01 

0.271900 

0. 3150-04 

0.259283 

0.848171 

0.0 

0.0 

0. 342953 

0.324760 

1.274308 

-0.201962  -0.6940- 

•01 

0.3  33977 

0.3580-04 

0.286C78 

C. 822534 

0.0 

0.0 

0.353394 

0.326229 

1.267877 

-0.199)22  - C. 8560- 

■01 

0.338671 

0.4960-04 

0.314136 

0.794934 

0.0 

0.0 

0.364739 

0.327724 

1.261025 

-0.195965  -0.1050 

00 

0.374197 

0.4600-04 

0.343410 

P.765369 

0.0 

0.0 

0. 377066 

0.329222 

1.253732 

-0.192776  -0.1270 

00 

0.V 15734 

0.5230-04 

0.373632 

0.733878 

0.0 

0.0 

0.390459 

0.330688 

1.245976 

-0.189436  -0.1540 

00 

0.463684 

0.5370-04 

0.4C5313 

0.700544 

0.0 

0.0 

0.405007 

0.332077 

1.237738 

-0-  105921  -0. 1840 

00 

0.538165 
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0.437737 

0 .665508 
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0.0 
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0.333327 

1  .728998 
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00 

0.559522 

0.7470-04 

0.470967 

0.628966 

0.0 

0.0 

0.437953. 

0.334359 

1.219744 

-0.  1787 "*3  -P.2610 

00 

0,615)69 

C. 3420-04 

0.504842 

0.591177 

0.0 
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0.456549 

0.335068 

1.208962 

-0.173970  -0.3070 

00 

0.675148 

0.9500-04 

0.539179 

0.552454 

0.0 

0.0 

0.476691 

0.335321 

1.199647 

-0.169387  -0.36CD 

00 

0.743130 

0.1070-03 

0.573780 

0.513160 

0.0 

0.0 

0.498474 

0.334951 

1.188802 

-0.164799  -0.4210 

00 

0.910415 

0.1210-03 

0.608433 

0.473657 

0.0 

0.0 

0.521982 

0.333750 

1.177438 
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00 

0.836434 

0.  1360-03 

0.642919 

0.434477 

0.0 

0.0 

0.547276 
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1.165580 
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00 

0.963657 
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0.0 

0.0 
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1.153270 
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00 
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0.0 
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00 
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CO 
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0.0 
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00 
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01 
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1.069776 

-0.048026  -0.1180  01 

2.266812 

0.1170-02 

0.941576 

0.106604 

0.015383 

0.001131 

0.892620 

0.158674 

1.061772 

-0.040640  -0.1350  01 

2.461673 

C. 1300-02 

0.959209 

0.077814 

0.015625 

C.C01370 

0.920506 

0.124086 

1.084558 

-0.033306  -0.1540  01 

2.672436 

0.1460-02 

J. 973049 

0  .  C  5  50  7  5 

0.015947 

0.001 707 

0.944244 

0.093154 

1.048350 

-0.025818  -0.1750  01 
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2.900396 

0.1620-02 

0.983324 

0.036602 

0.016389 

C.C02223 

0.963330 

0.073636 

1.043298 

-0.018828  -0.1980 

01 

3.146959 

0.1810-02 

0.990456 

0.022616 

0.017030 

0.003055 

0.977657 

0.047198 

1.039452 

-0.012764  -0.223D 

01 

3.413640 

0.2010-02 

0.995021 

0.012786 

C. 018007 

0.004416 

0.987569 

0.028848 

1.C36749 

-0.007931  -0.2500  01 

3.702383 

0.223C-02 

0.9»7671 

0.006497 

0.019568 

0.006634 

0.993793 

0.015868 

1.035023 

-0.004442  -0.2790 

01 

4.014063 

0.2470-02 

0.949039 

0.002904 

0.022143 

0.C19228 

0.997276 

0.007702 

1.034038 

-0.002198  -0.3110 

9  t 

4.351501 

0.2730-02 

0.999653 

0.001115 

0.026475 

0.016023 

0.998977 

0.003221 

1.033548 

-0.000°37  -0.3460 

01 

4.716473 

0.301D-02 

0.999887 

0.000360 

0.033857 

0.025363 

0.999682 

0.091127 

1.033341 

-0.000333  -0.3840 

01 

5.111227 

0. 3310-02 

0.994962 

0.CC0102 

0.046548 

0.040441 

0.999923 

0.000318 

1.033269 

-0.000094  -0.4250 

01 

5.538193 

0.3640-02 

0.994986 

0.000036 

0.068499 

0.C64838 

0.999987 

0.000069 

1.033251 

-0.000018  -0.471 C 

01 

6.0C0003 

0.4030-02 

1.000030 

0.000C29 

0.106848 

0.103499 

1.000000 

0.000003 

l.OOOCOO 

-0.213220  -0.5220 

01 

ETA 

Y/L 

R080E 

XHU 

E* 

CHI 

LEL 

LET 

PRL 

PUT 

SP  HT 

0.9 

0.0 

2.75781 

0.35070-06 

0.0 

0.0 

1.000000 

1.000000 

0.737038 

0.900C90 

0.60190 

0* 

0.009890 

0. 155n-05 

2.72894 

0.35390-06 

0.0 

0.21600-01 

1.000000 

1.000030 

0.737123 

0.900COC 

0.69210 

04 

0.020587 

0.324P-05 

2.69863 

0.3  5730-06 

0.0 

0.91410 

-01 

1,000000 

1.000000 

0.737162 

o.9?oroc 

0 .69 2 PD 

04 

0.032157 

0.510P-05 

2.66686' 

0.360°0-06 

0.0 

0.21760 

00 

1.090000 

1.000000 

0.737205 

0.9P0000 

0.60230 

04 

9.044671 

0.713D-05 

2.63363 

0.36480-06 

0.0 

0.40890 

00 

l. 000000 

1.0-30000 

0.737253 

O.9P0CPC 

0.69250 

04 

0.753206 

0.9350-05 

2.59895 

0.36890-06 

0.0 

0.6751D 

00 

1.000030 

1.030300 

0.737307 

0.900000 

0.60260 

04 

0.072845 

0.1180-04 

2.56283 

0.37330-06 

0.0 

0.10270 

01 

1.C00300 

1.030000 

0.737368 

0.90900? 

0.60280 

C4 

0.038679 

0.1450-04 

2.52531 

0.37800-06 

0.0 

0.14740 

01 

1.030030 

1.000300 

0.737435 

C.9C9P30 

0.60300 

04 

0.105305 

0.174D-04 

2.48642 

C. 38300- 06 

0.0 

0.20310 

01 

1.000000 

1.000000 

0.737511 

0.990000 

0.60330 

04 

0.124329 

0. 206P-04 

2.44622 

0. 38830-06 

0.0 

0.27080 

01 

1.000000 

l.nooono 

P. 737596 

C.90PC0P 

0.69350 

04 

0.144364 

0.2420-04 

2.43477 

0.39400-06 

0.0 

0.35180 

01 

000000 

l. 000000 

0.737691 

0.909C90 

0.60330 

04 

0.166034 

0.2810-04 

2.36214 

0.40000-06 

0.0 

0.44760 

01 

1.000030 

1.000300 

0.737796 

0.900CCO 

0.6942D 

04 

0.189472 

0.3240-04 

2.31842 

0.40630-06 

0.0 

0.55950 

01 

1.300030 

1.000000 

0.737915 

P.900C90 

0.60450 

04 

0.214823 

0.3710-04 

2.27371 

0.41300-06 

0.0 

0.683PO 

01 

1.000000 

1.003000 

0. 738047 

C.  900000 

0.60490 

04 

0.242243 

0.4240-04 

2.22810 

0.42010-06 

0.0 

0.83690 

01 

1.300000 

1.000000 

0.738194 

o.9ccre9 

0 .6l,54f) 

C4 

0.271909 

0 • 482C-04 

2.18170 

0.42760-06 

0.0 

0.10050 

02 

1.000030 

1.000000 

0.738358 

0.900000 

0.60590 

C4 

0*  3039  77 

0.5450-04 

2.11464 

0.43540-06 

0.0 

0.11940 

02 

l.OOOCOO 

1.030000 

0.73P54O 

0.9C0CC0 

0.6065D 

04 

0.338671 

0.6160-04 

2.P8702 

0.44370-06 

0.0 

0.14060 

02 

1  .0(10000 

I.ooonoo 

0.7  3P743 

0 .900000 

0.69710 

04 

0.376197 

0.6940-04 

2.03895 

0.45230-06 

0.0 

0.16400 

02 

1.000000 

1.000000 

0.738968 

0.900000 

0.607ei) 

04 

0.416784 

0.7810-04 

1.5 9054 

0.46140-06 

0.0 

0.18980 

02 

1.000000 

l.OOOCOO 

0. 73021  7 

0.  SCONC'D 

0.63360 

04 

0.463684 

0.e77D-04 

1.94190 

0.47090-06 

0.0 

0.21780 

02 

1.000030 

i.ooonoo 

0.739492 

0.030000 

0.60950 

04 

0.5C3165 

0.9830-04 

1.89310 

C. 48090-06 

0.0 

0.24790 

02 

1.003030 

1.000000 

0.739796 

C.9P0PPP 

0.61 040 

04 

0.559522 

Q.113D-03 

1.84423 

0. 49130-06 

0.0 

0.28010 

02 

1.000000 

1.000030 

0.740131 

0.900C00 

0.61150 

04 

0.615069 

0.  1230-03 

1.79533 

0.50220-06 

0.0 

0.31390 

02 

1.000000 

1.000000 

0.740501 

0.99CCPP 

0.6127D 

C4 

0.675143 

0.1380-03 

1.74644 

0.51370-06 

0.0 

C. 34900 

02 

1.000030 

1 .033000 

0.740908 

C.orPCOO 

0.61403 

04 

0.743130 

0. 154D-03 

1.69759 

0. 5256P-06 

0.0 

0.38460 

02 

1.030000 

1.000000 

0.741356 

0.900000 

0.61540 

04 

0.310415 

0. 1T2D-03 

1.64879 

0.53810-06 

0.0 

0.42000 

02 

l.OOOCOO 

1.000000 

0.741849 

0.9P0090 

0.61  700 

04 

0.836434 

0.1°2C-03 

1.60003 

0.5513O-06 

0.0 

0.45420 

02 

1.000033 

1.000030 

0.742390 

0.900000 

0.61880 

04 

0.968657 

0.2150-03 

1.55132 

0.56500-06 

0.0 

0.4H610 

02 

l.OOOCOO 

1.03000C 

0.742985 

0.900000 

P. 62970 

04 

1.057599 

0.2400-03 

1.50271 

0.57950-06 

0.0 

0.51420 

02 

1 .000003 

1.000000 

0.743637 

0.900000 

0.62280 

04 

1.153T79 

0.2680-03 

1.45425 

0.59480-06 

0.0 

0.53710 

02 

1.000003 

1.030000 

C. 744350 

0.900000 

0.62510 

04 

1.257817 

0.299D-03 

1.40610 

0.61070-06 

0.0 

0.55340 

02 

1.000000 

1.003P30 

0.745126 

0.90CC00 

0.62770 

04 

1.370345 

0.3340-03 

1.35849 

0.62740-06 

0.0 

0.56170 

02 

1.000000 

1.000000 

0.745955 

0.9PC000 

0.63050 

04 

1.492055 

0. 3730-03 

1.31173 

0.6447P-06 

0.0 

0.56100 

02 

1.000090 

1.000000 

0. 746°62 

0.90CC0C 

0.63350 

04 

1.623697 

0.4170-03 

1.26630 

0.66240-06 

0.0 

0.55030 

02 

1.000030 

1.00300C 

0.747807 

0.900000 

0.63670 

04 

1.766080 

0.4650-33 

1.22275 

0.68040-06 

0.0 

0.52950 

02 

1.000030 

1.030P00 

0.748783 

0.900000 

0.6430D 

C4 

1.920382 

0.5210-03 

1.18173 

0.69830-06 

0.0 

0.49840 

02 

1.003000 

l.OOOCOO 

0.749767 

C.9C0CP0 

0.64330 

04 

2.0866  51 

0.5830-03 

1.14396 

0.71 560-06 

0.0 

0.45780 

02 

1.030000 

1.090000 

0.750710 

0.90CP00 

0.64660 

04 

2.266812 

0.6520-03 

l.llCll 

0.73190-06 

0.0 

0.40870 

02 

1.000030 

1.030000 

0.751637 

C.9C0000 

0.64980 

04 

2.461673 

0.7250-03 

1.C8079 

0.74670-06 

0.0 

0.35270 

02 

1,000000 

1.030000 

0.752456 

0.909000 

0.6526D 

04 

2.672436 

0.ei30-03 

1.05541 

0.7594P-06 

0.0 

0.29200 

02 

i.ooonoo 

1.030000 

P.753160 

0.9C0CP0 

0.65510 

C4 

2.900396 

0.9070-03 

1.C3712 

0.76980-06 

0.0 

0.22970 

02 

1.030033 

1.000000 

0.753731 

O.9P0COC 

0.65710 

04 
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3.146959 

0.1010-02 

1.02276 

0.77770-06  0.0 

0.16940 

02 

1.000009 

1.000000  0 

.754163  0.900000 

0.63870 

04 

3.413640 

0.1120-02 

1.01283 

0.78330-06  0.0 

0.11520 

02 

1.000033 

1.000000  0 

.7  5  446  6  0.90000  0 

0.65970 

04 

3.702333 

0.1250-02 

1.00655 

C. 78690-06  0.0 

0—70850 

01 

1.000000 

1.000000  0 

.754658  0.900000 

0.66040 

04 

4.314063 

0. 138D-02 

1.00300 

0.7889D-06  0.0 

0.38450 

01 

1 .000090 

1.000000  0 

.754768  0.900000 

0.66080 

04 

4.351501 

0.1520-02 

1.00124 

0.78990-06  0.0 

0.J.793D 

01 

1.000000 

1.000000  0 

.754822  0.900000 

0.6610D 

04 

4.71*473 

0. 1680-92 

1.CCC49 

0.79040-06  0.0 

0.70330 

00 

1.000090 

1.000000  0 

.754846  C. 900000 

0.661  ID 

04 

5.111227 

3.1350-02 

1.03024 

0.79050- 

06  0.0 

0.24060 

00 

1.000033 

1.009000  9 

.754853  C- 900000 

0.66110 

04 

5.539193 

0.2030-02 

1.00017 

0.79060- 

36  0.0 

0.10370 

00 

1.009093 

1.009000  0 

.754855  0.900000 

0.66110 

04 

6.003300 

0. 2230-02 

1.30000 

C. 76520- 

06  0.0 

0.10240 

00 

1.900030 

1.000000  0 

.753481  O.900C0O 

0.65630 

04 

ETA 

Y/L 

z 

ZN 

TFHP 

T/TE 

TN 

CP/CV 

RHO 

0.3 

0.0 

l.cooooo 

0.0 

0.5400000 

03 

0.3791090 

00 

0.406975D 

00 

1.399289 

0. 1313960-03 

0.009893 

0.1550-05 

l.OOOOOC 

0.0 

0.5457120 

03 

0.3831190 

00 

0.4039420 

00 

1.399189 

0.  130C2PD-03 

0.370507 

0. 3240-05 

1.000000 

0.0 

0.5518420 

03 

0.3874230 

00 

0.4006810 

00 

1.399078 

0. 1285760-03 

0.032157 

0.5100-05 

1.003000 

0.0 

0.5584160 

03 

0.  3920380 

00 

0.3971820 

00 

1.398953 

0. 1270620-03 

0.344671 

3.7130-05 

l.OOOOOC 

0.0 

0.5654620 

03 

0.3965850 

00 

0.3934390 

00 

1.398814 

0.1254790-03 

0.35920* 

0.935D-C5 

1.000030 

0.0 

0.5730080 

03 

0.4022810 

00 

0.3B94130 

00 

1.398658 

0.1238260-03 

0.372345 

0.1180-04 

l.OOOOOC 

0.0 

0.5810830 

03 

0.4079520 

00 

0.3851199 

00 

1.398484 

0.1221060-03 

0.388679 

0.1450-04 

1. 000000 

0.0 

C. 5897180 

03 

0.4140140 

00 

0.3805370 

00 

1.398290 

0.1203180-03 

0.1 35905 

0.1740-04 

1  .OC  3000 

0.0 

0.5989410 

03 

0.4204890 

00 

0.3756580 

00 

1.398072 

0.1ie4650-03 

0.124329 

0.2060-04 

1.003000 

0.0 

0.608784D 

03 

0.4273990 

00 

0.3704730 

00 

1.397829 

0.H65550-C3 

0.1  44364 

0. 2420-04 

1.003000 

0.0 

0.6192770 

03 

0.4347660 

00 

0.3649780 

00 

1.397557 

0. 1145750-03 

0.1 66034 

0.2910-04 

1.000000 

0.0 

0.6304530 

03 

0.4426120 

00 

0.3591730 

03 

1.397253 

0. 1125440-03 

0.189472 

0.3240-04 

l.OCOCOO 

0.0 

0.642  341 D 

03 

0.4509580 

00 

0.3530620 

00 

1  .396914 

0.1104610-03 

0.214923 

0.3710-04 

1.300000 

0.0 

0.6549730 

03 

0.4598270 

00 

0.3466549 

00 

1.396536 

0. 1083300-03 

0.242243 

0.4240-04 

l.OCCOOC 

0.0 

0.6683810 

03 

0.4692400 

00 

0.3399660 

00 

1.396114 

0.1061570-03 

0.271900 

0.4920-04 

l.OOOOOC 

0.0 

0.682594D 

03 

0.4792190 

00 

0.3339220 

00 

1.395645 

0.  1339470-03 

0.303977 

0.5450-04 

1.300000 

0.0 

0.6976440 

03 

0.4897040 

00 

0.3258570 

00 

1.395124 

0. 1017050-03 

0.33B671 

0.6160-04 

l.OOOOOC 

0.0 

0.7135630 

03 

0.5009600 

00 

0.318515D 

00 

1.394546 

0.9943570-04 

0.376197 

0.6940-04 

l.OOOOOC 

0.0 

0.7303850 

03 

0.5127700 

00 

0.3110530 

00 

1.393906 

0.9714550-04 

0.41 6784 

0.781P-04 

1.300000 

0.0 

0.7481460 

03 

0.5252390 

00 

0. 3035389 

00 

1.393198 

0.9483920-04 

0.463684 

0.8770-04 

1.000000 

0.0 

0.7668870 

03 

0.5383970 

00 

0.2960493 

00 

1.392416 

0.9252150-04 

0.503165 

0.983D-04 

l.OOOOOC 

0.0 

0.7866540 

C3 

0.5522740 

00 

0.2886760 

03 

1.391554 

0.9019670-04 

0.55952? 

0.mD-03 

1.304000 

0.3 

0.807502D 

C3 

0.5669100 

00 

0.2815150 

00 

1 .390606 

0.8786900-04 

0.61 5369 

0.1230-03 

1  -OCOOOO 

0.0 

0.8294960 

03 

0.5823510 

00 

0.2746620 

00 

1.389563 

0.  95  53820-04 

0.675148 

0.1380-03 

l.OOOOOC 

0.0 

0.9527140 

03 

0.5986520 

00 

0.2682110 

00 

1.388418 

0. 8320910-04 

0.743133 

0. 1540-03 

1.303000 

c.o 

0.8772520 

03 

0.615S78D 

00 

0.2622370 

00 

1.387162 

0. 8388170-04 

0.810415 

0.172D-03 

1.000000 

0.0 

0.9032200 

03 

0.6341100 

00 

0.2567820 

00 

1.385785 

0.7855630-04 

0 .886434 

3.1920-03 

l.OOOOOC 

0.0 

0.930745D 

03 

0.6534340 

00 

0.2518420 

00 

1.384276 

0.7623310-04 

0.968657 

0.2150-03 

l.OOOOOC 

0.0 

0.959«67P 

03 

0.6739490 

00 

0.2473440 

00 

1  .382626 

0.739126D-C4 

l. 057590 

0.2400-03 

l.OOOOOC 

0.0 

0.991C240 

03 

0.6957520 

00 

0.2431230 

00 

1.180823 

0.71  5°M0-C4 

1.153779 

0.2630-03 

1.003000 

0.0 

0. 102404D 

04 

0.7189330 

00 

0.2309043 

00 

1.378861 

0.6928770-04 

1.257317 

0.2990-03 

l.OOOOOC 

0.0 

0.1059110 

04 

0.7431  520 

00 

0.2342870 

00 

1.376735 

0.  £699370-04 

1.370345 

0. 3340-03 

1.  007000 

0.0 

0.1396230 

04 

0.7696150 

00 

0.2287510 

00 

1.374451 

0.6472490-04 

1.492055 

0.3730-03 

1.003000 

0.0 

0.1135300 

04 

0.7970460 

00 

0.2216660 

00 

1.372022 

0.6249740-04 

1.623657 

0.4170-03 

l. OCOOOO 

0.0 

0.1176040 

04 

0.8256440 

00 

0.2123560 

09 

I  .169479 

0.6313270-04 

1.766083 

0 .4660-03 

1  .OCOOOC 

0.0 

0.121793D 

04 

O.P550S20 

00 

0.2001790 

00 

1.366867' 

0.5325760-04 

1.920)82 

0.5210-03 

l.OOOOOC 

0.0 

0.1260200 

C4 

0.8  347280 

00 

0.1846560 

00 

1.364252 

0.5630350-04 

2.386651 

0.  5810-03 

l.occnoc 

0.0 

0.1301810 

04 

0.9139420 

00 

0 . 165630D 

00 

t .361712 

0.5450370-04 

2.266812 

0.6520-03 

1.000000 

0.0 

0.1341500 

04 

0.9418060 

00 

0. 1434130 

00 
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PROPERTIES  AT  THE  WINOWARD  STREAMLINE 


S/REF 

s 

CFXINF 

ST  INF 

OMIDIHI 

OW/OMSTAG 

2HALL 

0.9 

0.0 

0.0 

0.1881400-01 

-0.205TT4O 

02 

0.1000000 

01 

1. OOP 000 
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-0. 2419380 
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0.1547900-01 
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II.  Full  Three-Dimensional  Solution  of  a  Sharp  Cone  at  Angle  of  Attack. 
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THP EE-01  MENS 10NAL  BOUNDARY  LAYER  PROGRAM 
FOR 

LAMINAR  OR  TURBULENT  FLOW 
WITH 

BINARY  GAS  INJECTION 
DEVELOPED  BY 
M.C.  Fft  ICDERS 

AEROSPACE  ENGINEERING  DEPARTMENT 
VIRGINIA  POLYTECHNIC  INSTITUTE  AND  STATE  UNIVERSITY 
BLACKSBURG.  VA.  24060 


INPUT  GATA  CARDS  ARE  AS  FOLLOWS: 


SHARP 

CONE  LAMINAR  ALPHA- 5 

RE  INF- 

1.2D067FT  NASA  TN  0-5450 

00000200 

CARO  C01 

IE 

13 

COL 

50 -52 

101 

00070290 
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13 
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VALUE 

E  14. & 
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CARO  G46 

XbAR 

E  14.6 

COL  50-63 

0.0 
6.01 
C.399B 
0  .<>629 
G.5660 
C.7340 
C.9C01 
1.0663 
1.2326 
1.3985 
1.1666 
1.7327 
1.9316 


FREE  STREAM.  STAGNATION.  ANO  VEHICLE  CATAt 


PSTAG  «  0.1200000  04  PS! A 

T  TSTAG  -  0.2000000  04  OEG.R 

O  HSTAG  •  0.1202370  08  FT«P2/SECPP2 

P|NF  ■  0.1915380-01  PSIA 
RhU INF»  0.1884510-04  SLUGS/FT«»3 
TINF  -  0.8520790  02  OEG.R 

UINF  •  0.479F22D  04  FT/SEC 

M INF  -  0.1060000  02 

CP/CV  ■  0.1400060  01 

R  -  0.1717670  04  FT**2/SEC«P2/DEG.ft 

'  Th/TO  ■  0.2700000  DO 

ALPHA  -  C.5C0006D  Cl  OEG. 

THETAC*  0. 150000D  02  OEG. 


POINTS  AT  WHICH  A  SOLUTION  I S  TO  BE  OBTAINEOt 

1  XSTAIII 

1  0.0 

2  C.01QGC0 

3  C.3998C0 

4  0.482900 

5  0.566000 

6  0.734000 

7  C. 906100 

8  1.066300 

9  1.232400 

10  1.398500 

11  1.5666C0 

12  1.732  700 


ROTTA 

00000670 

"STAG 

00000680 

0.27 

00000690 

0.0 

C00C0710 

2000.0 

00000712 

1200.0 

000  30  720 

2.0 

GOC  3C730 
00000740 
G000J750 
GGOOw 760 
00000770 
COO 00 7 oO 
COO 00 790 
00000800 
0030 0810 
00000320 
OCCO0B3O 
OOOC 3340 
GGCC3950 
00300860 
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1.931600 


s 

-  0.0 

S/REF 

-  0.0 

Z 

-  0.0 

Z/REF-  0.0 

ft 

-  0.0 

R/REF 

-  0.0 

OX 

-  0.100000-01  Nil 

’  -  5 

PHI  -  0.0  DEG. 

XI 

■  0.9 

DXI 

-  0.0 

OXDXI-  0.0 

CWALL-  0.0 

DIMENSIONAL  EDGE 

PROPERTIES 

PE 

-  0.5558050 

02  TE 

-  0.3557680  03  UE  -  0.***632D  0* 

VE  -  0.0 

HACHE  -  0.4807100  01 

OPEDX 

-0.0 

OTEDX-  0.0 

OUEDX-  O.C 

OVEOX-  0.0 

RHOE  -  0.9095270— 0* 

OPEOH 

•  0.0 

CTEOM-  0.0 

DUE DM-  0.0 

DVEOW-  0.2140670  03 

RHOEMUE-  0.222***0-10 

LOCAL 

EOGE  REYNOLDS  NUMBER  - 

0.0 

ETA 

Y 

F 

FN 

G 

GN 

M 

HN 

C 

CN  V 

0.0 

0.0 

0.0 

0.5*26*7 

0.0 

0.100383 

0.270155 

0.298667 

0.9**810 

-0.152531  0.0 

0.909890 

0.0 

0.005371 

0.5*3505 

0.C00991 

0.C99931 

0.273117 

0.300*15 

0.9*3315 

-0.1*9838  -0.3920-0* 

0.020 567 

0.0 

0.011190 

0.5***20 

0.002057 

0.C99432 

0.2763*1 

0.302305 

0.9*1728 

— 0. 1*6° 1 5  -0.1700-03 

0.032157 

0.0 

0.017*9* 

0.5*5393 

0.00320* 

0.C93878 

0.279850 

0.30*3*7 

0.9*00*6 

-0.1*3851  -0.41*0-03 

0.0*9671 

0.0 

0.02*326 

0.5*6*23 

0.00**38 

0.098262 

0.283672 

0.306552 

0.-38266 

-0.1*0609  -0.7990-03 

0.0582C6 

0.0 

0.031729 

0.5*7511 

0.005763 

0.097578 

0.287838 

0.338935 

0.936387 

-0.137182  -0.1360-02 

0.0726*5 

0.0 

0.039753 

0.5*8658 

0.007186 

0.096817 

0.292379 

0.311506 

0.93**05 

-0.133560  -0.2120-02 

0.068679 

0.0 

0.3*e*50 

0.5*9860 

0.008712 

0.C95968 

0. 297334 

0.31*279 

0.932321 

-0.  129735  -0.3150-02 

0.105805 

0.0 

0.057878 

0.SS1U5 

0.0103*8 

0.C95023 

0.3027*2 

0.31  7269 

0.93C13* 

-0.125697  -C. *480-02 

0.124J29 

O.C 

0.368058 

0.552*16 

0.012098 

0.091968 

0.3086*8 

0.320*89 

0.9278*5 

-0.121438  -0.6ie0-02 

0. 1**34* 

0.0 

0.07918C 

0.553755 

0.013969 

0.C9275O 

0.31513* 

0.323952 

0.925*57 

-0.  116945  -0.83  3D-02 

0,16603* 

0.0 

0.391195 

0.555119 

0.315966 

0.091475 

0.322165 

0.327672 

0.922975 

-0.112208  -0.11GD-01 

0.189*72 

0.0 

0.10*222 

0.556*92 

0 . Cl  8093 

O.C900G6 

0.324892 

0. 331660 

0. 920*03 

-0.  10  72  1  4  -  0.14  3  0-01 

0.21*623 

0.0 

0.1 183*7 

0.5578*8 

0 .02035* 

0.088163 

0.33335* 

0.335926 

0.917753 

-0.  1 0 1  Q48  -0.184D-01 

0.2*22*3 

0.0 

0.133662 

0.559157 

0.022752 

C.C86528 

0.3*7627 

0.3*347* 

0.91503* 

-0.096395  -0.234D-01 

0.271 903 

0.0 

0.15326* 

0.560377 

0.025288 

C. 06**77 

0.357797 

0.3*5305 

0.912263 

-O.C90540  -0.2940-01 

0.3C3977 

0.0 

0.166257 

0.561*53 

0.027961 

0.C62187 

0.363955 

0.350*11 

0.909*58 

— 0. C84365  -0.3670-01 

0.338671 

0.0 

0.187753 

0.562313 

0.03C769 

0. 0796 32 

0.301207 

0.35577* 

0.9066*5 

-0.077852  -0.4550-01 

0.376197 

0.0 

0.2C8666 

0.562866 

0.03370* 

0.076785 

0.39*663 

0.361359 

0.903853 

-C.C70932  -0.5610-01 

0.41676* 

0.0 

0.231717 

0.562995 

0 .036756 

C. 073617 

0. *09**8 

0.367113 

0.901123 

-0.063735  -0.637D-01 

0.46066* 

0.0 

0.256*25 

0.562551 

0.034912 

0.370102 

0. *25695 

0.37295* 

0.898*91 

-0.056C96  -0.8380-01 

0.506165 

0.0 

0.283112 

0.5613*8 

0.0*31*8 

C.C66214 

0.4*35** 

0.376761 

0.896020 

-0. 048049  -0.1C2D  00 

0.559522 

0.0 

0.311891 

C. 559153 

0.0*6*39 

0.C61929 

0.4631*5 

0.38*370 

0.693771 

-0  .  0  3  95  8  7  -  0.12  3  0  0  0 

0.615069 

0.0 

0.3*2862 

C.  555685 

0.0*97*9 

0.C57232 

0.48*6*6 

0.389552 

0.691S20 

-0.030709  -0.1480  00 

0.6751*8 

0.0 

0.376105 

0.550599 

0 .05303* 

0.052115 

0.50819* 

0.39*005 

0.89C257 

-0.021429  -0.1770  00 

0.7*0130 

0.0 

0. *11667 

0.5*3*89 

0.0562*1 

0.C46586 

0.533918 

0.397332 

0.889181 

-0.011780  -0.2120  00 

0.810*15 

0.0 

0  .**95*6 

0.533888 

0.059306 

C.C4067C 

0.561922 

0.399032 

0.688708 

-0. CC 1 825  -0.2530  00 

0.8So*3* 

0.0 

3.48967* 

0.521272 

0.062158 

0.034*18 

0.592260 

0.398*88 

0.888961 

0. GO 8336  -0.3C10  00 

0.966657 

0.0 

0.531655 

0.505085 

0.06*718 

0.02791* 

0.62*912 

0.39*968 

0.890075 

0. 018556  -0.3560  CO 

1.357590 

0.0 

0.5755*2 

0. *6*777 

0 .066900 

0-021275 

0.659753 

0.3876*9 

0.892185 

0.C28626  -0.42C0  00 

1.153779 

0.0 

0.  621*08 

0. *59858 

0.068o21 

0.01*660 

0.69651* 

0.375669 

0.895*19 

0.038265  -0.495D  00 

1.257317 

0.0 

0.667732 

0. *29985 

.  0.069802 

O.COH265 

0.73*7*8 

0.353221 

0.899882 

0.047125  -0.56CD  00 

1.37C345 

0.0 

0.71*18* 

0.39  50  6  3 

0.070363 

0.002319 

0.773797 

0.33*697 

0.9056*5 

0.054787  -0.6790  00 

1. *92055 

0.0 

0.759873 

0.355358 

0.070327 

-0.002937 

0.812777 

0.30*869 

0.91271* 

0.06C797  -0.790D  00 

1.623657 

0.0 

0. 80377* 

C. 311596 

0.069633 

-G.9C7266 

C. 853601 

C. 269096 

0.921018 

0.J64703  -0.9170  00 

1.766080 

0.0 

0.8**755 

0.265L20 

0.0683** 

-0.010*78 

0.8860*0 

0.228*92 

0.930391 

0.066122  -0.1060  01 

1.923082 

0.0 

0.881869 

0.217373 

0.066551 

-0.012*55 

0.9178*5 

0.18*986 

0.9*051* 

0.064812  -0.1220  01 

2.066651 

O.C 

0.91‘*073 

0.170772 

0.06*189 

-0.013186 

0.9**915 

0.1*1206 

0.951021 

0.060742  -0.1400  01 
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2*264812 

0.0 

0.940763 

0.127473 

0.062027 

>0.012786 

0.96648  7  0.100141  0.961410  0.054151  -0.1590  01 

2.461673 

0.0 

0.961682 

0. 089542 

0.059646 

•0.011488 

0.982307  0.064610  0.971151  0.045589  -0.1810 

01 

2.672436 

0.0 

0. 977024 

0.05850S 

0.057416 

•0.009614 

0.992704  0.036668  0.979735  0.035907  -0.2050  01 

2.9C3356 

0.0 

0.987418 

0.035054 

0.055466 

-0.007523 

C. 993554  0.C17137  0.986774  0.026165  -0.2300 

01 

3.146959 

0.0 

0.993821 

0.018927 

0.053860 

-0.3C5545 

1.001090  0.005448  0.992081  0.017424  -0.258D 

01 

3.413648 

0.0 

0.997340 

0.0C9C14 

0  .052624 

-0.003918 

1 .CO  162 1  -0.000100  0.995713  0.010461  -0.2680 

01 

3.702083 

0.0 

0.956023 

0.003689 

0.051683 

-0.002749 

1.001251  -0.001737  0.997938  0.005577  -0.3210 

01 

4.014063 

0.0 

U.9997C5 

0.0012S5 

0.050957 

-0.0C2017 

1.000704  -0.001524  0.999137  0.002592  -0.3560 

01 

4.331301 

0.0 

0.99993C 

0.000341 

0.05U356 

-0.001618 

l .0 Ju305  -0.000852  0.999695  0.001025  -0.3950  01 

4.716473 

0.0 

0.999988 

C.OO3C70 

0 .049809 

-C. 001421 

1.000101  -C. 000345  0.999912  0.00 

C335  -0.4360 

01 

5.111227 

0.0 

0.995998 

C.C0L010 

0.046270 

-0.001325 

1.000025  -0.000102  0.999980  0.000087  -0.4800 

01 

5.538193 

o.c 

1 .000330 

O.OOCOOl 

0.048719 

-0.001267 

1.000004  -0.000022  0.999997  0.003017  -0.5280 

01 

6.000000 

0.0 

1.000300 

-0.000000 

0.048145 

-0.001220 

1.03000U  -0.000001  1.000000  0.000000  -0.5800 

01 

ETA 

Y/L 

ROROE 

XMU 

E* 

CHI 

LEL 

LET 

PRL 

PRT 

SP  HT 

0.0 

0.0 

0.65883 

0.35070-06 

0.0 

0.0 

l. 000000 

1.000000 

0.T3T08B 

0.900000 

0.60190 

04 

0.009890 

0.0 

0.65174 

0.3540D-06 

0.0 

0.0 

1.000000 

1.000000 

0.737124 

0.900000 

0.60210 

04 

0.020587 

0.0 

0.64433 

0.35750-C6 

0.0 

0.0 

1 .000030 

1.000000 

0.737164 

C. 900000 

0.60220 

04 

0.032157 

0.0 

0.63659 

0.36120-06 

0.0 

0.0 

1.000000 

l.OOOOCC 

0.737239 

0.90CCC0 

0.6323D 

04 

0.044671 

0.0 

0.62854 

0.3651D-C6 

0.0 

0.0 

1.C00C3C 

1.C33COO 

0.737257 

0.SCC030 

0.6C250 

G4 

0.0382C6 

0.0 

0.62C17 

0. 36930-06 

0.0 

0.0 

1.000000 

1.000000 

0.737312 

0.900000 

0.6C-26D 

04 

0.072845 

3.0 

0.61152 

0.37370-06 

0.0 

0.0 

1.000030 

l.COOOCO 

0.737373 

0.900000 

0.63280 

04 

0.089679 

0.0 

0.60258 

0.37840-06 

0.0 

0.0 

l.COOCOO 

l.OJOCOO 

0.737441 

0.900000 

0.633C0 

04 

0.  105305 

0.0 

0.59340 

0.38340-06 

0.0 

0.0 

1.030030 

1.000000 

0.737516 

0.900C3C 

0.60  3  3D 

04 

0.124329 

0.0 

0.53398 

0.38360-C6 

0.0 

0.0 

l.COCOOO 

l.COOC'30 

0 .73  7630 

0.9CCCQ0 

0.63350 

04 

0.144364 

0.0 

0.57438 

0.39410-06 

0.0 

0.0 

1.000000 

1.000000 

0.737692 

0.900000 

0.63390 

04 

0.166034 

0.0 

0.56462 

0.39980-06 

0.0 

0.0 

1.300000 

1.009000 

0.737793 

G. 900000 

0.60410 

04 

0.189472 

0.0 

0.55474 

0 .40  530-06 

0.0 

0.0 

1 .003030 

1.000000 

0.737004 

0.900000 

0.60450 

04 

0.214823 

0.0 

0.54481 

0.41200-06 

0.0 

0.0 

1.000030 

l.OOCCOO 

0.738026 

C.930CC0 

0.63490 

04 

0.242243 

0.0 

0.534B8 

0.41 840-06 

0.0 

0.0 

1.000000 

l.OCOCOO 

0.736158 

0.90CCC0 

0.6053C 

C4 

0.271900 

0.0 

0.52501 

0.42  5C0-C6 

0.0 

0.0 

1.000000 

1.003000 

0.738330 

0.900000 

0.60570 

04 

0.303977 

0.0 

0.51528 

0.43170-06 

0.0 

0.0 

l.OOCGOO 

1.000000 

0. 73o452 

O-SOCOOO 

0.60620 

C4 

0.338671 

0.0 

0.50577 

0. 43840-06 

0.0 

0.0 

1.000000 

1.030000 

0.736613 

0.900000 

0.60670 

04 

0.376197 

0.0 

0.49657 

0.44520-06 

0.0 

0.0 

1.000000 

l.OCOOOO 

0.738781 

0.9C0COC 

0.60720 

04 

0.416784 

0.0 

0.48779 

0.451  d0-06 

0.0 

0.0 

l.OCOCOC 

1.000000 

0.738953 

0.900000 

0.60780 

04 

0.463684 

0.0 

0.47956 

0.45820-06 

0.0 

0.0 

1.000000 

1.003000 

0.739127 

0.4COCOO 

0.63830 

04 

0.5C8165 

0.0 

0.47199 

0.4643C-06 

0.0 

0.0 

1.000000 

l.OCOOOO 

0.739298 

O.900C00 

0.60890 

C4 

0.559522 

c.o 

0.45526 

0.46980-06 

0.0 

0.0 

1.0JC030 

1.000300 

0.739459 

0.900000 

0.60940 

04 

0.61 5069 

0.0 

0.45953 

0.47460-06 

0.0 

0.0 

l.COOCOO 

l.OOOOOC 

0.739633 

C.900CCO 

C. 63930 

04 

0.675148 

0.0 

0.4550C 

0.47850-06 

0.0 

0.0 

1.030000 

l.OOCCOO 

0.739722 

C.90OCOO 

0.61020 

04 

0.740130 

0.0 

0.45193 

0.4B12D-06 

0.0 

0.0 

1.300000 

1.000000 

0 .739835 

0.930000 

0.61C5D 

04 

0.810415 

0.0 

0.4SC59 

0.48240-C6 

0.0 

0.0 

1.000C30 

1.000000 

0.739842 

O.900C00 

0.61C60 

C4 

0.886434 

0.0 

0.45131 

0.48170-06 

0.0 

0.0 

1.000030 

1.000000 

0.739B22 

0.900000 

0.61050 

04 

0.968657 

0.0 

0.45448 

0.47900-06 

0.0 

0.0 

1.000000 

1.000000 

0.739736 

O.9C0C00 

0.6103D 

04 

1 .057590 

0.0 

0.46059 

0.47370-06 

0.0 

0.0 

l.OOCOOQ 

l.OCOOOO 

0.739576 

O.90CCO0 

0.63970 

04 

1.153779 

0.0 

0.47018 

0.46 580-06 

0.0 

0.0 

1.000000 

1.000000 

0-739340 

0.900000 

0.63900 

04 

1.257817 

0.0 

0.48389 

0.45480-06 

0.0 

0.0 

1.000030 

1.000000 

0.739034 

0.900C00 

C.6C800 

C4 

1.373345 

0.0 

0.50244 

0.44080-06 

0.0 

0.0 

1.CC0030 

1.000000 

0.738672 

O.9OOCO0 

0.60690 

04 

1.492355 

0.0 

0.5266C 

0.42390-06 

0.0 

0.0 

1.030000 

l. 000000 

0.738276 

0.9CCCOO 

0.6357D 

C4 

1.623697 

0.0 

0.55708 

0.4C430-06 

0.0 

0.0 

1.000000 

1.000000 

0.737977 

0.900C00 

0.60440 

04 

1.766080 

0.0 

0.59443 

0.38280-06 

0.0 

0.0 

1.000000 

1.000000 

0.737508 

0.900000 

0.603 30 

04 

1.923C82 

0.0 

0.63874 

0.36010-06 

0.0 

c.o 

1.000030 

l.OOOOCO 

0.737195 

0.9C0C00 

0.692 3D 

04 

2.C86651 

0.0 

0.68935 

0.33740-06 

0.0 

0.0 

1.000030 

1.000000 

0.736958 

0.900000 

0.60150 

04 

2.266812 

0.0 

0.74451 

0.31580-06 

0.0 

0.0 

1.000000 

1.000000 

0.736797 

0.900000 

0.60100 

C4 
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2.461673 

0.0 

0.60119 

0.29650-06 

0.0 

0.0 

2.672436 

0.0 

0.65537 

0.28010-06 

0.0 

0.0 

2.930396 

0.0 

0. 90289 

0.26730-06 

0.0 

0.0 

3.146959 

0.0 

0.94062 

0.25800-06 

0.0 

0.0 

3.413640 

0.0 

0. 96739 

0.25170-06 

0.0 

0.0 

3.7C2J63 

0.0 

0.58416 

0.24800- C6 

0.0 

0.0 

4.0143(3 

0.0 

0.99335 

0.24600-06 

0.0 

0.0 

4.351501 

0.0 

0.99764 

0.24510-06 

0.0 

D.O 

4.716473 

0.0 

0.99932 

0.24470-06 

0.0 

0.0 

5.111227 

0.0 

0.99965 

C. 24460-06 

0.0 

0.0 

5.53(1193 

0.0 

0.99998 

0.24460-06 

0.0 

D.O 

6. CC0UC0 

0.0 

l.CCOOQ 

0.24460-06 

0.0 

0.0 

1.000000 

1.000000 

0.736702 

0.900000 

0.60070 

04 

1.000000 

1. CO 0000 

0.736655 

0.900COC 

0.69060  C4 

l-OOOCOO 

1.000000 

0.736638 

0.900000 

0.60060 

04 

1.000000 

l.OOOCOC 

0.736636 

0.903000 

0.6CS50 

04 

1 .000030 

1.000900 

0.736639 

0.9COCOO 

0 . 60060 

04 

1.000000 

1.000000 

0.736642 

0.900COO 

0.60C6D 

04 

1.000000 

1.300000 

0.  736644 

0.500000 

0 .60060.  04 

1 .090030 

I.OCCCJO 

0.736645 

0.900000 

0.69060 

04 

1.0U0090 

1.000000 

0.736646 

O.SoOCOC- 

0.60060 

04 

1 .009090 

1 .900000 

0.7  36646 

0.9CC090 

0.60060 

04 

l.OOOGOO 

l. 000000 

0.736646 

0.900000 

0.60960 

C4 

1.000000 

1.000000 

0.736646 

0.900000 

0.60060 

04 

-fc. 

OJ 


ETA 

V/L 

2 

In 

TEPP 

T/TE 

TN 

CP/CV 

RHO 

a.o 

0.0 

l.OOGOOC 

0.0 

0.5400000 

03 

0.1517840  01 

0.1677320 

01 

1.399289 

0.5992240-04 

0.009890 

0.0 

l.oooooc 

0.0 

0.5458710 

03 

0.1534340 

01 

0. 1659060 

01 

1.399187 

0.59  2  7  790-04 

o.0205er 

0.0 

l.OCOOOC 

c.o 

0.5521520 

03 

0.1552000 

01 

0.  1640850 

01 

1.399072 

0.5860360-04 

0 .03 2 1 57 

0.0 

l.OOJOOC 

0.0 

0. 558  8630 

03 

0.1570860 

01 

0.1620110 

01 

1.398945 

0.5789'>4D-O4 

0*0446  71 

0.0 

1.000090 

0.0 

0.5660260 

03' 

0.1591000 

01 

0.  1597480 

01 

1.398803 

0.5716720-04 

0 • 059206 

0.0 

1 .00  3000 

0.0 

0.5736590 

03 

0.1612450 

01 

0.  1572770 

01 

1.39P64S 

0.5640650-04 

0*072945 

0.0 

l.OCOOOC 

0.0 

0.5817800 

03 

0.1635280 

01 

0.1543760 

01 

1.398469 

0.556191D-04 

0  *038o 79 

0.0 

l.OCCOOC 

0.0 

0.59C4C5D 

03 

0.1659520 

01 

0.1516280 

01 

1.398274 

0.54  8066P-04 

0* 1C  5605 

0.0 

1 .ccoocc 

0.0 

0.5995460 

03 

0.1685210 

01 

0. 148402D 

01 

1.39PGSB 

0.5397100-04 

0. 124329 

0.0 

l.oooooc 

0.0 

0.6092 10D 

C3 

0.1712380 

01 

0. 1446730 

01 

1.397818 

0.5311490-04 

0*144364 

0.0 

l.OOOOCC 

0.0 

0. 6193990 

03 

0.1741020 

01 

0.1410120 

01 

1.397554 

0.5224110-04 

0 • 1 66  J  34 

0.0 

1.0CJ9C0 

0.0 

0.6301C8D 

03 

0.1771120 

01 

0.1367860 

01 

1.397263 

0.5135330-04 

0*169472 

0.0 

l.OCCOOC 

0.0 

0.6413210 

03 

0. 18C264D 

01 

0.1321580 

01 

1.396944 

0. 504  5  54D-C4 

0*214623 

0.0 

l.OCCOOC 

0.0 

0.653G13D 

03 

0.1835500 

01 

0.1270900 

01 

1.396596 

0.4955200-04 

0.242243 

0.0 

l.OCOOOC 

0.0 

0.66514  ID 

03 

0.1  869590 

01 

0.  1215390 

01 

1.396218 

0.4364850-04 

0*2  71 903 

0.0 

1.00090C 

0.0 

0.6776450 

03 

3.1924740 

01 

0.11 5462D 

01 

1.395811 

0.4  7  7  5  080  -04 

0*303  777 

0.0 

l.ocrocc 

0.0 

0.6904430 

03 

0. 1940710 

01 

0. 1068100 

01 

1.395377 

0.4656570-04 

0.338671 

0.0 

l.OCuGOC 

0.0 

C. 7034250 

C3 

0.1977200 

01 

0. 1015350 

01 

1.394918 

0.460^.000-04 

0*376197 

c.o 

1.09C0CC 

0.0 

0.7164510 

03 

0.2013810 

01 

0.9358650 

00 

1.394438 

0.45  16440-04 

0*4 16  764 

0.0 

l.OCOOOC 

0.0 

0.7293430 

03 

0.2050040 

01 

0.8491790 

00 

1.393947 

0.4436630-04 

0*4  6  Je>d4 

9.0 

l.OCJJCC 

o.c 

0.7418670 

03 

0.2085250 

01 

0.7548580 

00 

1.393452 

0.4361  710-C4 

0*506165 

J.O 

l.OCCCCO 

0.0 

0.7537550 

C3 

0.2118670 

01 

3.6525600 

30 

1.392968 

0.429292C-04 

0.559522 

0.0 

l.CCOOCC 

0.0 

0. ?646o7D 

03 

0.2149340 

01 

0.5420980 

00 

1.392510 

0.4231660-04 

0*615  269 

0.0 

l.CCOCCC 

0.0 

0.7742C5C 

03 

0.2176150 

01 

0.4235150 

CO 

1.392101 

0.4175520— C4 

0*67514$ 

0.0 

1.000030 

0.0 

0. 78 19C10 

03 

0.2197780 

01 

0.297158D 

00 

1.391765 

0.4138390-04 

0. 7401 30 

0.0 

1.C3C0CC 

0.0 

C.787223D 

03 

0.2212730 

01 

0.164CMD 

00 

1.391529 

0.41 10430-04 

0*81  J415 

0.0 

1 .CC09C0 

0.0 

0.7895680 

03 

0. 22 19330 

01 

0.2545550- 

01 

1.391424 

0.4J9820D-04 

0*866434 

0.0 

l.OOOOCC 

0.0 

0.7883100 

C3 

0.22158C0 

01 

-.1161490 

00 

1.391480 

0.4104740-04 

0*969657 

0.0 

l.OCCOOC 

0.0 

0.7827960 

03 

0.2200300 

01 

-•257499D 

00 

1.391725 

0.4133660-04 

1  .057590 

0.0 

l.OCOOOC 

0.0 

0.7724150 

C3 

0.2171120 

01 

-. 394191D 

00 

1.392179 

0.41 8921 D-04 

1.153779 

0.0 

1.CC03C0 

o.c 

0.7566620 

C3 

0.2126840 

01 

-.5207140 

00 

1.392847 

0.4276430-04 

1*257817 

0.0 

l.OCOOOC 

0.0 

0.735221D 

03 

C. 2066570 

01 

-• 630646D 

30 

1.393716 

0.4401140-04 

1  • 370345 

0.0 

l.OOCOCC 

c.o 

0.  7380  740 

C3 

0.199G270 

01 

-.7171310 

00 

1.394749 

0.4569870-04 

1.492055 

o.c 

l.CCOOCC 

0.0 

0.6755960 

03 

0.1898960 

01 

-.773692D 

00 

1.395879 

0.47  8956D-04 

1 . 62  365  7 

0.0 

l.OCOCOO 

0.0 

0.6386330 

03 

0.1795070 

01 

-.7953310 

03 

1.397022 

0. 506680D-04 

1  *  7660  BO 

0.0 

l.OCCOOC 

0.0 

0.5985330 

03 

0.1682330 

01 

-.7797620 

00 

1 .398083 

0.5406460-04 

1«920092 

0.0 

l.OCOOOC 

0.0 

0.5569890 

03 

0. 156559D 

01 

-.7284230 

00 

1.396981 

0.5909470-04 

2*066651 

0.0 

l.OCOOOC 

0.0 

0.516G920 

03 

C.145C64D 

01 

-.6468840 

00 

1.399666 

0.6265630-04 

2*266612 

c.o 

l.OCOCOO 

0.0 

0.4776560 

03 

0.1343170 

01 

-.5443500 

00 

1 .400131 

0.6771510-04 

2  *46 1673 

0.0 

l.oooooc 

c.o 

0.4449510 

C3 

0.1248150 

01 

-.4322190 

00 

1.40C4C6 

0.72  87020-04 

AE  DC-TR-75-55 
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2.672436 

0.0 

l.OOOOOC 

0.0 

0.4159220 

03 

0.1169080 

01 

-.3220650  00 

1.400540 

0. 77 79840-04 

2.900396 

0.0 

l.OOOOOC 

0.0 

0.3940310 

03 

0.1107550 

01 

-.2236180  00 

1.40CS90 

0.8212060-04 

3.146959 

0.0 

l.OCOCOC 

0.0 

0.3782280 

03 

0.1063130 

01 

-.1433160  00 

1.400596 

0.8555180-04 

3.413640 

0.0 

l.OOOOOC 

0.0 

0.3677600 

03 

0.1033710 

01 

-.8372870-01 

1.400568 

0. 879871 D-C4 

3.702083 

0.0 

l.OOOOOC 

0.0 

0.3614870 

03 

0.1C  16  >70 

01 

-.438714D-01 

1.40C578 

0. 8»51380-04 

4.014063 

0.0 

l.OCOCOC 

0.0 

0.3581500 

03 

0.1006690 

01 

-.2019250-01 

1.400572 

0. 903479 0-C4 

4.3515C1 

0.0 

l.OCOCOC 

0.0 

0.3566100 

03 

0.10C2370 

01 

-.7952580-32 

1.400568 

0.9073610-04 

4.716473 

0.0 

1.3CCCCC 

0.0 

0. 3560 l ID 

03 

0.100C680 

01 

-.2502720-02 

1.430567 

C. 90  B9G7C-04 

5.111227 

0.0 

l.OCOOOO 

c.o 

0.3558220 

C3 

0.100C150 

01 

-.67C71BO-03 

1.40C567 

0.9093S90-C4 

5.538193 

0,0 

l.OOCOOC 

0.0 

0.3557760 

C3 

0.1000020 

01 

- • 130244D-03 

1.400567 

3.9395060-04 

6*00 JJOO 

0.0 

1  .OOOCOC 

0.0 

0.3557680 

03 

0.1000000 

01 

-.2550060-05 

*•*  +  + 

1.40C566 

0.9395270-04 

s 

-  0.0 

S/REF-  0.0 

2  •  0.0 

Z/REF«  0.0 

R 

■  0.0 

R/REF-  0.0 

OX  *  0.100000-01 

NIT  •  6 

PHI  -  IS 

XI 

-  0.0 

OX!  »  0.0 

OXDXl-  0.0 

CHALL*  0.0 

OIMENSIONAL  EDGE  PROPERTIES 


PE  -  0.S46T910  02 
DPEDX*  0.0 
0P=0H*-0. 6812760  01 


TE  -  0.3561010  03 
OTEOX*  0.0 
OTEOM— 0.1265280  02 


UE  •  0.6648220  04 

OUSDX-  0.0 

UUECH*  0.1447780  02' 


VE  ■  0.5565440  02 
OVEOX-  0.0 
OVEDH*  0.2095960  03 


HACHE  - 
RHOE  * 
RHOEHUE- 


LOCAL  EOGE  REYNOLDS  NUMBER  -0.0 


s 

-  0.0 

S/REF- 

0.0 

2  - 

0.0 

Z/REF- 

0.0 

R 

*  0.0 

R/REF* 

0.0 

OX 

0.10030D-01 

NIT  ■ 

7 

XI 

»  0.0 

CXI  * 

0.0 

OXDXI* 

0.0 

CHALL* 

0.0 

DIMENSIONAL  EOOE  PROPERTIES 


PE  *  0.5208860 
OPEOX-  0.0 

02  TE 

DTE 

-  0.3492220  03  UE  -  0.445383D  04 

OX*  0.0  DUEDX*  0.0 

VE  -  0. 
OVEOX-  0. 

1089310  03 

0 

HACHE  -  0 
RHOE  -  0 

0PE0H*-0. 1276940  02  DTEDW«-0. 2442020  02  DUEOH*  0.28I687D  02 

LOCAL  EDGE  REYNOLOS  NUMBER  *0.0 

OVEOH-  0. 

1958380  03 

RHOEHUE-  0 

ETA 

Y 

F 

FN 

G 

GN 

H 

HN 

C 

CN 

0.0  0.0 

0.0 

0.549969 

0.0 

0.049160 

0.270155 

0.301813 

0.942531 

-0.153766  0 

0.039890  0.0 

0.005444 

0.550848 

0.000485 

0.048937 

0.273148 

0.303621 

0.941024 

-0.150961  -0 

0.020587  0.0 

0.011341 

C. 551784 

0.001007 

0.048628 

0.276407 

0.305576 

0.939425 

-0.147982  -0 

0.332157  0.0 

3.017731 

0.552779 

0.C01567 

0.C48318 

0.279954 

0.307687 

0.937731 

-0.144829  -0 

0.044671  0.0 

0.024655 

0.553833 

0.302170 

0.047974 

0.263819 

0.309969 

0.935940 

-0.141493  -0 

0.0582C6  0.0 

0.032159 

0.554945 

0.002817 

0.C47592 

0.288031 

0.312432 

0.934049 

-0.137967  -0 

0.072845  0.0 

0.043291 

C.5561 16 

0.003510 

0.047167 

0.292624 

0.315090 

0.932056 

-0.134242  -0 

0.083679  0.0 

0.349107 

0.557343 

0.004253 

0-C46695 

0.297636 

0.317958 

0.929962 

-0.130310  -0 

0.1C58C5  0.0 

0. 058663 

C. 558621 

W.C05C49 

0.C46169 

0.333108 

0.321048 

0.927766 

-0.126162  -0 

00  OEG. 


.4820470  01 
.8989890*04 
.2189690-10 


00  OEC. 


.4860140  01 
.8683630-04 
.2089690-10 


V 

.0 

.3880-04 

.1680-03 

.4100-03 

.7910-03 

.1340-02 

.2100-02 

.3110-02 

.4430-02 


AEDC-TR-75-55 


2.900396  0.0 
9.166959  0.0 
3.613660  0.0 
3.702063  0.0 
6.916063  0.0 
6.351501  0.0 
6.716673  0.0 
5.111227  0.0 
5.538163  0.0 
6.0UJGOO  0.0 


l.OCCOOC 

0.0 

0.2640870 

03 

0.1021590  01 

-.8495390-01 

1 .400043 

0.4008050-04 

1.000000 

0.0 

0.2605420 

03 

C. 1007880 

01 

-.3544060-01 

1.400013 

0. 4062570-06 

l.OCOCOC 

0.0 

0.2590860 

C3 

C. 1002250 

01 

-.1217420-01 

1.40C000 

0.4085400-04 

l.OCCCGC 

0.0 

0.2586040 

C3 

C. 1000380  01 

-.3300490-02 

1.399996 

0.4093020-04 

l.oojooc 

0.0 

0.2584810 

C3 

0.9999060 

00 

-.6773320-03 

1.399994 

0.4094970-04 

1 .occcoc 

0.0 

0.2584570 

C3 

0.9998140 

00 

-.1103600-03 

1.39095* 

0.4 J9534D-04 

1 . OCuO  0  c 

0.0 

0.2584530 

C3 

G. 9997970 

00 

-.2590870-04 

1.399994 

0.4095410-04 

1 .oooooc 

0.0 

0.2584510 

03 

0.9997890 

00 

-.1609190-04 

1.399994 

0.4C95450— 04 

l.OOOOOC 

0.0 

0.258449D 

03 

0.9997830 

00 

-. 1339880-04 

1.399994 

0.409547D-04 

l.C'OOCOC 

0.0 

0.2585C50 

C3 

C.109C000 

01 

0.1416600-02 

1.390995 

0.4095490-04 

*•*«*  .**»* 


FAILED  TO  GET  A  CONVERGED  SOLUTION  AT  K-  13 
S  “  0.1000000-01  S/REF*  0.517T06D-02 

R  ■  0.2586190-02  R/REF*  0.133992D-02 

XI  ■  0.2208670-16  OXI  •  0.2206670-16 


t»  1  NIT-  21 

2  ■  0.9659260-02  Z/R6F-  0.5000650-02 

DX  -  0.100C 00-01  NIT  -  7 

OXOXI-  0.1509360  13  CWALL-  0.0 


PHI  -  0.0  OEG. 


DIMENSIONAL  EDGE  PROPERTIES 


PE  -  0.5558C5D  02 
DPEOX-  0.0 
OPEDW-  0.0 


TE  -  0.3557680  03 
DTEOX-  0.0 
CTEOH-  0.0 


UE  -  0.6666320  06 
OUEOX-  0.0 
DUE OH-  0.0 


VE  -  0.0 
DVEOX-  0.0 
OVEOH-  0.2160670  03 


MACHE  -  0.6807100  01 
RHOE  -  0.9095270-06 
RHOEMUE-  0.2226660-10 


LOCAL  EDGE  REVNOLOS  NUMBER  -0.1653530  05 


-P. 


NCNDIMENSIGNAL  BOUNDARY  LAYERS  PARAMETERS 


CFXINF-  0.6066810-01 
CHEOGE-  0.6130650-02 
Om  —0.8516700-02 


CFXEOG-  0. 9766600-02 
CHINF  -  0.2761760-01 
CHIMAX-  0.1C56550  03 


CFWIKF-  0.0 
STEDGE-  0.6999170-02 


CFHEOG-  0. 1BC6700-02 
ST  INF  -  0.2235820-01 


DIMENSIONAL  BOUNDARY  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTICN-  0.8778920  01  PSF 
TRANSVERSE  SKIN  FRICTION  -  C.C  PSF 
HALL  HEAT  TRANSFER  RATE  -- 0.2289060  02  BTU 


BELT A*I X)  -  0.2061660-03 
OELTA*CPHD-  0.9757750-06 
DELTA  I  FT  I  -  0.3627180-03 


THETAIX)  -  0.2506 790-04 
THETA!  PHI  >—0.6823600-04 


0.0  0.0  0.0  0.562550 

0.009890  0.9580-06  0.00537C  0.5636C8 

0.020587  0.2010-05  0.011188  0.566323 

0.032157  0.3150-05  0.017691  0.565295 

0.066671  0.6610— OS  0.926321  0.566325 

0.C53206.  0.5790-05  0.031723  0.567613 

0.072865  0.7300-35  0.939766  0.568559 

0.038679  0.8950-05  0.068661  0.569761 

0.1C58C5  0.1G80-C6  0.057867  0.551015 

0.126329  0.12dD-06  0.068C86  0.552316 

0.166366  0.1530-06  0.079166  C.SSJ656 


0.0  0.100386  0.270155  0.298591 
0.000991  0.C99936  0.273116  0.300337 
0.002057  0.C99635  0.276339  0.302225 
0.903206  C. (93880  0.279868  0.306266 
0.006638  C.C93265  0.283669  0.306670 
0.C05763  C. 697581  0.287833  0.308850 
0.007186  0.C968 19  0.292373  0.311619 
0.008713  0.095971  0.297326  0.316191 
0.010368  0. (95025  0.302733  0.317179 
0.012099  0.(93970  0.308638  0.320397 
0.013970  C.C92793  0.315092  0.323658 


0.966810  -0.152692  0.0 
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0.736646 

0.9CCCC0 

0.60060 

C4 

0.736646 

0.900000 

0.60060 

04 

0.736646 

C.900C00 

0.60060 

04 

RHO 


0.1517840  01  0.1676890  01 
0.1534340  01  0.1659440  01 
0.1551990  01  0. 1640430  01 
0.1570850  01  0.1619690  01 
0.  1599980  01  0.1557060  01 
0.1612430  01  0. 157236D  01 
0.1635250  01  0.1545370  01 
0.1655480  01  0.1515870  01 
0.1685170  01  0.1483620  01 
0.1712330  01  0.1448340  01 
C.174G960  01  0.1409740  01 
0.1771050  01  0.1367490  01 
C.1H0256D  01  C. 1321220  01 


1.399289  0. 599224D-04 
1.359187  0.592781D-C4 
1.399072  0.58604CD-04 
1.398945  0.5790040-04 
1.398803  0.571679D-04 
1.398645'  0.5640740-04 
1.398469  0.5562020-04 
1.398274  0.54  8C780-04 
1.398058  0.5397240-04 
1.397819  0.5311650-04 
1.397554  0.5224290-04 
1.397263  0.5135520-04 
1.396944  0. 534575D-04 
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0.214823 

0. 1190-04 

1.000000 

0.0 

0.6529830 

03 

0.1835420 

01 

0.1270550 

01 

1.396596 

0.4955430-04 

0.242243 

0. 1360-04 

l.OOOOOC 

0.0 

0.6651070 

03 

0. 1869S0D 

01 

0.1215070 

01 

1.396219 

0.4865100-04 

0.271900 

0.1540-04 

l.OOCOOC 

0.0 

0.6776C8D 

03 

0.1904630 

01 

0.1154320 

01 

1.395812 

0.4775340-04 

0.303977 

0.1740-04 

L.OOOOOC 

0.0 

0.6904030 

03 

0.1940600 

01 

0. 108T620 

01 

1.395378 

0.4686850-04 

0.338671 

0.1970-04 

1.00)000 

0.0 

0.703382D 

C3 

0.197708D 

01 

0.1015100 

01 

1.394919 

0.460036D— 04 

0.376197 

0.2210-04 

1.000000 

0.0 

0.7164050 

03 

0.2013680 

01 

0.9356540 

00 

1.394440 

0.4516730-04 

0.416784 

0.2480-04 

1.000000 

0.0 

0.7292910 

03 

0.2049900 

01 

0.8490090 

00 

1.393948 

0.4436920-04 

0.460684 

0.2780-04 

l.OCCCOO 

0.0 

0.741816D 

03 

0.2085110 

01 

0.7547350 

00 

1.393454 

0.4362010-04 

0.508165 

0.3110-04 

l.OOOOOC 

0.0 

0.7537020 

C3 

0.2116520 

01 

0.6524920 

00 

1.392970 

0.4293220-04 

0.559522 

0.347D-04 

l.OOOOOC 

0.0 

0.7646140 

03 

0.2149190 

01 

0. 542092D 

00 

1.392513 

0.4231950-04 

0.615C69 

0.3B70-C4 

1  .0000  JG 

0.0 

0.774152D 

03 

0.217600D 

01 

0.4235790 

00 

1.392104 

0.4179810-04 

0.675148 

0.4300-04 

l.OOOOOC 

0.0 

0.7818500 

03 

0.2197640 

01 

0.2973380 

00 

1.391767 

0.4138660-04 

0.743130 

0.4770-04 

1.000000 

0.0 

0.7871730 

03 

0.221260D 

01 

0.1642310 

00 

1.391531 

0.4110670-04 

0.810415 

0.528D-C4 

l.OOOOOC 

0.0 

0. 789528D 

03 

0.2219220 

01 

0.2575970-01 

1.391426 

0.4098410-04 

0.866434 

0.5630-04 

1 .000000 

0.0 

0.788279D 

03 

0.2215710 

01 

-.1157630 

00 

1.391482 

0.41 0490D— 04 

0.968o  57 

0.6430-04 

l.OOOOOC 

0.0 

0.7827780 

03 

0.2200250 

01 

-.2570410 

00 

1.391726 

0. 41 33  75D-04 

1.057590 

0. 707D-04 

l.OOOOOC 

0.0 

0.7724130 

03 

0.217111D 

01 

-.3936760 

00 

1.392179 

0.4189220-04 

1.153779 

0.775D-04 

1 ,000000 

0.0 

0.7566770 

C3 

0.21 26880 

01 

-.5201690 

00 

1.392846 

0.42 76340-04 

1.257817 

0.847D-04 

1.000000 

0.0 

0.7352570 

03 

0.2066670 

01 

-.630106D 

00 

1.393715 

0.440092D-04 

1.370345 

0.9220-04 

1.03C300 

0.0 

0.7081310 

03 

C.  1990430 

01 

-.7166390 

00 

1.394747 

0.4569510-04 

1.492355 

0.100D-03 

l.OOOOOC 

0.0 

0.6756720 

03 

0.1899190 

01 

-.7732910 

00 

1.395877 

0.4789020-04 

1.623697 

0.1080-03 

l.OOOOOC 

0.0 

0.6387210 

03 

0.1795330 

01 

-.7950610 

00 

1.397019 

0.5066070-04 

1. 7660  80 

0.1160-03 

l.OOOOOC 

0.0 

0.5986100 

03 

0.1682580 

01 

-.7796450 

00 

1.398080 

0. 5405540-04 

1.92C082 

0.1240-03 

l.OOCOOO 

0.0 

0.5570920 

03 

0.1565890 

01 

-.7284570 

00 

1.398979 

0.5808390-04 

2.086651 

0.1330-03 

1.000000 

0.0 

0.5161900 

03 

0.145C920 

01 

-.6470430 

00 

1.399665 

0.  6268640-04 

2.266812 

0. 1410-03 

1.000000 

0.0 

0 .477941 D 

03 

0.1343410 

01 

-.5445860 

00 

1.400131 

0.677031D-04 

2.461673 

0. 149D-03 

l.OOOOOC 

0.0 

0.4441180 

03 

0.1248330 

pi 

-.4324760 

00 

1.400405 

0.7285920-04 

2.672436 

0.1580-03 

l.OOOOOC 

0.0 

0.415971D 

03 

0.1169220 

01 

-.3222970 

00 

1.400540 

0.7778940-04 

2.900396 

0.1660-03 

l.OOOOOC 

0.0 

0.394C63D 

03 

0.1107640 

01 

-.2237970 

00 

1.400589 

0.8211400-04 

3.146959 

0.1750-03 

‘l.OOOOOC 

0.0 

0.3782470 

03 

0.1063180 

01 

-.1434360 

00 

1.400596 

0. 855476D-04 

3.41  3640 

0.1840-03 

l.OOOOOC 

0.0 

0.3677690 

03 

0.1033730 

01 

-.8379880- 

-01 

1.400588 

0. 8798480—04 

3.7G2083 

0.  1940-03 

l.OOOOOC 

0.0 

0.3614920 

C3 

C. 1016090 

01 

-.4390710- 

-01 

1.400578 

0.8951270-04 

4.014363 

0. 204D-03 

l.OCGOOO 

0.0 

0.3581520 

03 

0.1006700 

01 

-.2020830- 

•01 

1.400572 

0.9034740-04 

4.351501 

0.215D-03 

l.OOOOOC 

0.0 

0.3566110 

03 

0.1002370 

01 

-.7958620- 

-02 

1.400568 

0.9073790-04 

4.716473 

0.2270-03 

1  .OOOOOG 

0.0 

0.3560110 

03 

C. 1000680 

01 

-.2594710- 

-02 

1.400567 

0.9089060-04 

5.11 1227 

0.2400-03 

l.OOOOOC 

0.0 

0.355823D 

03 

0.  100015D 

01 

-.6712710- 

■03 

1.400567 

0.909389D-04 

5.538193 

0.2540-03 

l.OOOOOC 

0.0 

0.3557760 

C3 

0.1000020 

01 

-.1303690- 

-03 

1.400567 

0. 9095060-04 

6.000000 

0.2690-03 

1.000000 

0.0 

0. 355768D 

03 

C. 1000000 

01 

-.2566210- 

-05 

1.400566 

0.9)95270-04 

***** 


S  -  0 .1000000-01 
R  *  0.258819D-02 
XI  «  0.2208470-14 


$/REF=  0.5177060-02 
R/REF*  0.1339920-02 
0X1  -  0.220847D-14 


l  >  0.9659260-02 
OX  *  0.100000-01 
DXDXI-  C. 1509340  13 


Z/REF=  0.5000650-02 
NIT  -  4 

CHALL-  0.0 


PHI  *  15. 


DIMENSIONAL  EDGE  PROPERTIES 


PE  -  0.5467910  02 
DPEDX-  0.0 
OPEDH— 0.6812760  01 


TE  -  0.3541010  03 
0TE0X»  0.0 
0TEDU«-0. 1265280  02 


UE  -  0.4448220  04 
DUE OX-  0.0 
DUECM*  0.1447780  02 


VE  -  0.5565440  02  HACHE  - 
DVEOX*  0.0  RHOE  - 
OVEDH*  0.2095960  03  RHOEMUE- 


00  0E6. 


1.4820670  01 
1.8989890-04 
1.2189690-10 


LOCAL  EDGE  REYNOLDS  NUMBER  >0.1641770  05 
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NGNDIMENSIONAL  BOUNDARY  LAYERS  PARAMETERS 

CFXINF-  0.3969980-01  CFXEDG-  0.9683210-02  CFNINF-  0.1797280-02  CFWEDG*  0.6383760-03 
CHEDGE-  0.6C7449D— 02  CHINF  «  0.2686610-01  STEOGE-  0.6933S60-02  STINF  -  0.2190680-01 
ON  ■- 0.8344760-02  CHIMAX-  0.1066160  03 


DIMENSIONAL  BCUNCARY  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION*  0.8612260  01  PSF  DELTAMXI  *  0.2082330-03  THETAIX)  -  0.2545130-06 
TRANSVERSE  SKIN  FRICTION  »  0.3898910  00  PSF  OELT A-IPHI  I-  0.1313040-03  THETA! PHI  1—0. 2639090-04 
MALL  HEAT  TRANSFER  RATE  —0.2234050  02  BTU  DELTA  (FTI  ■  0.348808D-03 


***** 


$  -  0.100000D-01  S/REF.  0.5177060-02  2  •  0.9659260-02  Z/REF-  0.5000650-02 

R  “  0. 2588190-02  R/REF-  0.133992D-02  OX  -  0.100000-01  NIT  »  3  PHI  -  30.00  OEG. 

XI  -  0.2208470-14  DXI  -  0.2208470-14  DXOXI-  0.150934D  13  CHALL-  0.0 


DIMENSIONAL  EOGE  PROPERTIES 

PE  -  0.52C8860  02  TE  •  0.3492220  03  UE  •  0.4453830  04  WE  -  0.1089310  03  NACHE  -  0.4860140  01 

OPEDX*  0.0  OTEDX-  0.0  OUEOX*  0.0  OVEDX-  0.0  RHOE  -  0.8683630-04 

OPEOM— 0.1276940  02  0TEDW—0.244202D  02  OUEDH*  0.2816870  02  DVEDN-  0.1956380  03  RHOEMUE-  0.2089690-10 

LOCAL  EOGE  REYNOLDS  NUMBER  -0.1607140  05 


NONDI MENS10NAL  8CUN0ARY  LAYERS  PARAMETERS 

CFXINF-  0.38502 IC-01  CFXEDG-  0.9697830-02  CFMINF-  0.3451900-02  CFNEOG-  0.8694580-03 
CHEDGE-  0.6071270-02  CHINF  «  0. 2596700-01  STEOGE-  0.4950920-02  STINF  ■  0.2117590-01 
ON  —0.8066350-02  CHIMAX-  0.1073490  03 


DIMENSIONAL  BCUNOARV  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION-  0.8352420  01  PSF  OELTA*(X)  -  0.2149830-03  THETA! X}  -  0.2591C80-04 
TRANSVERSE  SKIN  FRICTION  -  0.7488350  00  PSF  OELTA*(PHll-  0.1355210-03  THETAIPHI  1—0.2817140-04 
NALL  HEAT  TRANSFER  RATE  —0.2159510  02  BTU  DELTA  C FT »  -  0.3579330-03 


ETA 

V 

F 

FN 

G 

GN 

H 

HN 

C 

CN  V 

0.0 

0.0 

0.0 

0.548950 

0.0 

0.049216 

0.2T0155 

0.301251 

0.942531 

-0.153479  0.0 

0.009890 

0.1020-05 

0.0C5433 

0.549826 

0.000485 

0.043963 

0.273143 

0.303053 

C. 941026 

-0. 1 5068 5  -0.3870-04 

0.020587 

0.2140-05 

0.011320 

0.550759 

0.001008 

0.043683 

0.276395 

0.304999 

0.939431 

-0.147717  -0.1680-03 

0.032157 

0.3360-05 

0.017698 

0.551750 

0.001569 

0. 048373 

0.279936 

0.307103 

0.937740 

-0. 144574  -0.4090-03 

0.044671 

0.47CO-OS 

0.024609 

0.552800 

0.  002 172 

0.C43029 

0.283793 

0.309375 

0.935952 

-0.141250  -0.7890-03 

0.058206 

0.6170-05 

0.032C99 

0.553909 

0.002820 

0.047647 

0.287997 

0.311829 

0.934064 

-0. 137736  -0.1340-02 

0.072845 

0. 7770-05 

0.043216 

0.555075 

0.003514 

0.047223 

0.292532 

0.314477 

0.932075 

-0.134025  -0.2100-02 

0.J88679 

0.954D-C5 

0.049015 

0.556298 

0.004258 

C.C46750 

0.237584 

0.31  7334 

0.929984 

-0.130106  -0.3110-02 
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0.105805 

0.1150-04 

0.058553 

0.557572 

0.124329 

0.  1360-04 

0.068894 

0.558893 

0.144364 

0.1600-04 

0.080105 

0.560249 

0.166034 

0. 185D-C4 

0.092261 

0.561629 

0.189472 

0.2140-04 

0.105441 

0.563013. 

0.214323 

0.2450-04 

0-119732 

0.56437B 

0.242243 

0.2  790- C 4 

0.135725 

0.566608 

0.2719  JO 

0-31 7u- 04 

0.152021 

0.5  669  C 1 

0.303977 

0.  359T-04 

0.170223 

0.567959 

0.333671 

0.4  350- C4 

0.189944 

0.568787 

0.376147 

0.4660-04 

0.21 1300 

C. 569290 

0.416/64 

0.5110-04 

0  •  2  34409 

C. 569344 

0.460684 

0.5730-04 

0.259395 

0.568  796 

0.508  145 

0.6400-04 

0-786375 

0.567451 

0 • 5  5  J5  22 

0 .7140-04 

0.318462 

C. 565069 

0.615:69 

0.7960-04 

0.345755 

0.561355 

0.675148 

0. 6B4C-04 

0.  380330 

0.555957 

0.740130 

0.9810-04 

0.416228 

C. 540455 

0.810415 

0.  1090-0  3 

0.454439 

0.5  3  8369 

0.8  96434 

0.12JD-C3 

0.404287 

0.525165 

0.963657 

0.  1320-C3 

0.6374'OC 

0 . 50d2  0 1 

1.057590 

0.1450-03 

0.581655 

0.467164 

1.153779 

0.1590-03 

0.62  7348 

0.461334 

1.257817 

0.  1  740-03 

0.673774 

0.433469 

1.370345 

0.  13  70-03 

0.720221 

0.344512 

1.492055 

0.2;5C-C3 

0.765778 

C. 353764 

1.623597 

0.2210-03 

0.9C94C7 

0.3C°J60 

1. 7663b0 

0.2a7D-03 

0.85CLC9 

0.261720 

1.920 Jo2 

0.254D-03 

0.886527 

0.213524 

2.086 9 51 

O.Z71D-C3 

0.918062 

0.166667 

2.246012 

0.28  7C-03 

0.944011 

0.123433 

2.461673 

0 . 304D-C  3 

0.964173 

0.^85d7 1 

2.672436 

0.3210-03 

0.978601 

C.C55-41 

2.90039a 

0.3350-03 

0.92  153C 

0.032729 

3.140559 

0 • 3560- 03 

0. 994506 

0.017346 

3.41 3640 

0.3740-03 

0.997694 

0.0C8C71 

3.7320E3 

0.3940-03 

0.959180 

C. 003206 

4.014063 

0.4140-03 

0.999  762 

0  .00  10  51 

4.3515C1 

0.437C-03 

0.99  9946 

0.000273 

4.716473 

0.4610-03 

0.994691 

e.  0001:5  3 

5.111227 

0.48  7C- 0  3 

0.969599 

0 .030007 

5. 5  3d  153 

0.5160-03 

l.UCCCCC 

0.000001 

6 . 0  u  00 00 

0  •  546D-03 

l.OOJCGC 

-C.C3OC0O 

0.005055 

0.046225 

0.303045 

0.320413 

0.005905 

C.04564C 

0.309011 

0.323728 

0 .006813 

0.044988 

0.315533 

0.327294 

•J.OC778C 

0 .044262 

0.322667 

0.331123 

0.C086C8 

0.043452 

0.330476 

0.335227 

0-009899 

0.C42549 

0.339030 

0.339614 

3.011C52 

0. 04 15 44 

0  •  346406 

0.344291 

3.012267 

0.C4J424 

0.356691 

0.349255 

0.013544 

0.C39178 

0.367979 

0.354530 

0.014879 

0.037793 

0.382374 

0.360003 

3.016269 

0.C34256 

0 • 395992 

0.365728 

0.017706 

0.034555 

0 .4  1095  7 

0.371617 

0.019182 

C.C3267B 

0.427404 

0.377583 

3.020665 

0.C33615 

0.445477 

0. 383500 

0.022199 

0.023357 

0.467323 

0.389192 

0.023706 

0.025902 

0 . 4  Q  7094 

0.394419 

0.3251B3 

C. 023251 

0.510933 

0.398864 

0.026631 

0.0204  17 

0.536972 

0.402111 

0.027930 

0.017422 

0.565306 

0.403638 

0.329135 

C.C14302 

0.555984 

0.402304 

0.030177 

C.C1U10 

0.628975 

0. 398853 

0.031020 

0.CC7919 

0.664136 

0.  390941 

0.031628 

C.CC4818 

0.701178 

0.373193 

0.331972 

0.CC1914 

0.739628 

0.359807 

0.032C33 

-0.CCJ677 

0.  7  7.6 794 

0.335199 

0.031S10 

-G.CC2039 

0.817764 

0. 304202 

0.031317 

-0.034472 

0.855421 

0.267265 

0.030594 

-C.CC8510 

0.8  70520 

0.225621 

0.024700 

-0.005935 

0.921815 

0.181329 

0.028713 

-C.CC5791 

0.948231 

0.137132 

3.327717 

-O.CC5182 

0.96906)7 

O.C960dl 

0.026793 

-0.CC4263 

0.934123 

0.060931 

0.^26307 

-0.3C3211 

C.  953330 

0.033787 

3.C25395 

-0. JC2197 

0.997126 

0.015151 

0.J24567 

-C.CU348 

1.001283 

0.004314 

0.324700 

-0.300728 

1  .001609 

-0.000578 

0. 024555 

-C. 000338 

1.001168 

-0.001824 

0.024488 

-C. 000129 

1  .000627 

-0.001452 

0.024464 

-0.0C3O37 

1.030259 

-0.000764 

3.024458 

-C.CC3CC6 

1  .000081 

-C. CO  3292 

0.024458 

C.CC0001 

1.000019 

-O.OOGOfil 

3.024458 

0. CO  3000 

1.00COO3 

-O.OOCC16 

0.024458 

-0.000003 

l.OOJCOO 

-0.000000 

0.927791 
0.925490 
0.923108 
C.92C625 
0.916057 
0.915411 
0.512702 
0.905944 
0.907158 
0.904  370 
0.901611 
0. 691191  8 
0. 896  339 
0.8939,-9 
0.691755 
0.885692 
0.86643  3 
0.8874  7 9 
0. 88  7 1  *t  6 
0.387560 
0.881 857 
0.891169 
0.894625 
0.894327 
0.905337 
0.512658 
0.921205 
0.93C790 
0.541112 
0.451759 
0.962230 
0.9719,2 
0.581  509 
0.987430 
0.992582 
0.991053 
0.596137 
0.999234 
0.995728 
0.999914 
0.999970 
0.599583 
1.000030 


-0.125971 
-0.121610 
-0.117012 
-0.112165 
-0.107057 
-0.101673 
-0.C9  5S98 
-0.090016 
-0.003M1 
-0.077063 
-0.07  J053 
-0.062665 
-0.0546 81 
-0.C46667 

-0.036077 
-0.029C52 
-0.015628 
-0.509844 
0.0002  36 
0.016505 

o.orc’oe 

0. 030926 
0.  C 4  05  71 
0.349381 
0.056932 
0.042761 
0.066418 
0.067526 
0.065855 
0.061394 
0. C54407 
0.C45477 
0.035459 
0.025577 
0.016751 
0.009905 
C.CC5166 
0. £02337 
0.CCC694 
0.000280 
0. 300069 
0.00CC12 
0.060096 


-0.44 20-02 
-0.6100-02 
-0.822D-02 
-0.109C-0 1 
-0.14ID-01 
-0. 1820-01 
-C. 2310-01 
-0.290P-01 
-0.3620-01 
-0.44CP-01 
-0.5520-01 
-0.6760-01 
-0.B24D-01 
-0.1000  00 
-0.1210  00 
-0.145C  00 
-0.1740  00 
-0.2080  00 
-o.?4eo  oo 

-0.294C  OC 
-0.3480  00 
-0.4110  00 
-0.4330  CC 
-0.5660  00 
-0.6610  00 
-0.7690  CO 
-0.8920  00 
-0.1030  CL 
-0.1180  01 
-0.1360  01 
-0.1550  01 
-C.176C  01 
-0.1990  Cl 
-0.224D  01 
-0.2510  Cl 
-C. 28 10  01 
-C.3130  01 
-0.3470  01 
-0.385C  01 
-0.4250  01 
— 0.465C  01 
-0.5170  Cl 
-0.5680  01 


ETA 

r/i 

R'JRGE 

XHU 

0.0 

0.0 

0.64670 

0.3507C-06 

0.0 

C. 009890 

0. 5290-06 

0.63968 

0.35400-06 

0.0 

0.020587 

0.1110-05 

0.63235 

0.35750-06 

0.0 

0.032157 

0.1740-05 

0.6247C 

0.36120-06 

0.0 

0.044671 

0.243D-05 

0.61674 

0.36520-06 

0.0 

0.0532C6 

0.3190-05 

0.60848 

C. 36940-06 

0.0 

0.072845 

0.432D-05 

0.54993 

0.37390-06 

0.0 

0.088679 

0.4940-05 

0.5  7112 

0.37860-06 

0.0 

0.1053C5 

0.5940-05 

0.5d?07 

0.38360-C6 

0.0 

CHI 

LEL 

LET 

0.0 

1.000000 

1.000000 

0.36590-02 

1.000000 

1.000000 

0.  16400-01 

1.000000 

1.000000 

0.39200-01 

1.000000 

1,000000 

0.74040-01 

1.000000 

1.000000 

0.12290  00 

1.000000 

1.000000 

0.18810  00 

l. 000000 

l.OOCOCO 

0.27220  00 

l.OOCCOO 

1.003000 

0.37800  00 

t.ooccoo 

i.ooococ 

PRl  PRT  SP  HT 


0.737088 

0.900000 

0.6019D 

04 

0.737124 

0.9G3000 

0 .602  ID 

C4 

0.737164 

0.90CC00 

0.69220 

04 

0.737209 

C.5CCC0C 

0.602  30 

04 

0.737259 

0.900000 

0.60250 

04 

0.737314 

0.9C0C00 

0.60270 

04 

0.737376 

0.900000 

0.6C28D 

04 

0.737444 

0.900000 

0.63310 

04 

0.73/520 

0.900000 

C. 60330 

04 

AEDC-TR-75-55 


0.124329 

0.7050-05 

0.5T26C 

0.3888C-06 

0.0 

0.144364 

0.8260-05 

0.56334 

0.39430-06 

0.0 

0.166034 

0.9590— C5 

0.55375 

0.4CC10-C6 

0.0 

0.189472 

0.1110-04 

0.54406 

0.43610-06 

0.0 

0.214323 

0.1270-04 

0.53431 

C.41230-C6 

0.0 

0.242243 

0.1450-04 

0. 52458 

0.41870-06 

0.0 

0.271900 

0 . 1640-04 

0.51463 

0.42  53D-06 

0.0 

0.303977 

0.1860-04 

0.5U543 

0.43190-06 

0.0 

0. 33dt>7l 

0.21JC-34 

0.49617 

0.43860-06 

0.0 

0.376197 

0.2360-04 

0. 40723 

0 . 44  53C-06 

0.0 

0.416784 

0.2650-04 

0.47873 

0.45150-06 

0.0 

0.460684 

0.2970-04 

0. 4  7078 

0.45820-06 

0.0 

0.5081(5 

0.3310-04 

0.4(352 

0.46410-06 

0.0 

0.559522 

0.370D-04 

C. 45710 

0.46950-06 

0.0 

0.615C69 

O.412r-04 

0.45171 

0.47410-06 

0.0 

C. 675143 

0 . 45GD- 04 

0.44754 

0.477  79-06 

0.0 

0.743130 

0 .50.113-04 

0.44485 

0.46C1D-C6 

0.0 

C.  810415 

0.5620-04 

0.44391 

0.48040-06 

0.0 

0.986**  34 

0.(210-04 

0.44508 

C. 47940-06 

0.0 

0.968657 

0.6940-04 

0.  4*»6  7  5 

0.4767D-06 

0.0 

1  .35  7593 

0.7520-J4 

0.45539 

0.47C°C-06 

0.0 

1.153779 

0.8240-04 

0.46555 

0.4624r-06 

0.0 

1.257317 

0.899D-04 

0.4dC0C 

C.45CSD-06 

0.0 

1.370345 

0.9790-04 

0.49935 

C. 43630-06 

0.0 

1.492JSS 

0.1060-03 

0.52443 

0.41 dBO- 36 

0.0 

1.623697 

0.114C-03 

0.55597 

0.  39  8  70-06 

0.0 

1.  766JGC 

0.  1230-03 

0.59450 

0.37680-06 

0.0 

1.920382 

0.1320-03 

0.643C8 

0.35380-06 

0.0 

2.066651 

0.  1400-03 

0.69197 

0. 33 1GC-06 

0.0 

2.266812 

0.1490-03 

0.  74824 

0.30950-06 

0.0 

2.461673 

0.1570-03 

0.80569 

0. 29030-06 

0-0 

2.672436 

0. 16&D-03 

0.8oGl2 

0. 27430-06 

0.0 

2.9C0356 

0.1750-03 

0.90731 

0. 26  ISC-06 

0.0 

3.146959 

0. 13<.r-03 

0.94423 

0.25300-06 

0.0 

3.413140 

0.1040-03 

0. 96958 

0.24710-06 

0.0 

3.702363 

0. 2040-0 3 

0.58578 

0 . 24370- J6 

0.0 

4.0143(3 

0.2150-03 

0.9*419 

0.24190-06 

0.0 

4.351501 

0.2260-03 

0.99601 

0. 24110-06 

0.0 

4.716473 

0. 2390-03 

0.99945 

0.24060-06 

0.0 

5.111227 

0. 2520-C3 

0.99988 

0.24070-06 

0.0 

5.538193 

0.2670-33 

0.999*8 

0.24C60-36 

0.0 

6.COC3CO 

0. 2830-03 

1.C030C 

C. 24060-06 

0.0 

ET* 

r/i 

2 

2N 

TEPP 

0.0 

0.0 

l.OOOOOC 

0.0 

0.5400C0D 

03 

0.309890 

0.5290-06 

l.OOOCOO 

0.0 

0.5459210 

C3 

0. 020587 

0.U1C-05 

l.OCOCOC 

0.0 

0.5522530 

03 

0.032157 

0.1 74D-C5 

1.0CC3CO 

0.0 

0.5590170 

C3 

0.044671 

0.2430-05 

1.3C00CC 

c.o 

0.5662330 

03 

O.C  58206 

0. 3190-05 

1  .OJOJOC 

0.0 

0.5739200 

C3 

0.072845 

0.4O2D-05 

I.OC330C 

0.0 

0.5820940 

03 

0.068679 

0.494D-05 

l.CCOOOC 

0.0 

0.5907700 

03 

0.105835 

0 . 594D-05 

1  .occcco 

0.0 

0.5999600 

03 

0. 1 24 J29 

0.7050-05 

l.OCOCOC 

0.0 

0.609o69D 

03 

0.50870  00 
0*66820  00 
0.86060  00 
0.10910  01 
0.13660  01 
0.16890  01 
0.20710  01 
0.26200  01 
0.3(630  01 
0.  3(690  01 
3.63980  01 
0.52580  01 
0.62730  01 
3.7675D  01 
3.89070  01 
3.10620  02 
0.1267D  02 
0.15160  02 
0.1617D  02 
0.2165O  02 
0.26360  02 
0.31900  02 
0.38680  02 
0.66920  02 
0.56770  02 
0.6E170  02 
0.80630  02 
0.92960  02 
0.10290  03 
0.1G730  03 
0.  10330  03 
0.89590  02 
0.65630  02 
0.65010  02 
0.25060  02 
3.11560  02 
0.6300D  01 
0.12520  01 
3.27170  00 
0.6C960-01 
0.38630-02 
-.35610-03 


T/TE 

0.1566290  01 
0.1563250  01 
C. 1581 330  01 
C.  1600  750  01 
0.1621610  01 
C. 1663420  01 
0.1666830  01 
C. 1691670  01 
C.171799D  01 
0.1745790  01 


I. 000000 
l.OOCCOO 
1.000030 
l.OOOOCO 
1.000000 
1.000000 
1.0C0CC9 
l.OCCOOO 
l.OOCCOO 
l.OOOOCO 
1.000000 
1.000000 
1. 000(00 
l.OCOC'OO 
1.000000 
i. oooi jo 
1.  000000 
l.OOCOCO 
1.000000 
1.000000 
1 .000330 
l.OCOCOO 
1.000030 
1.000000 
l.OOOCOO 
1.000000 
l.OOOCOO 
1.003030 
1.000030 
l.OOOCOO 
1.000000 
1 .0000  30 
1.030030 
1.CGCG30 
1.000000 
1.000000 
1.000000 
l.OOOCOO 
1.000000 
1  .cccooo 
1.000000 
l.OCCOOO 


TN 

0.172354D  01 
0.1705130  01 
0.  168501 D  01 
0. 1663110  01 
0.  16  3920D  01 
0.  1613120  01 
0.  1584620  01 
0.1553530  01 
0.1519430  01 
0.1682230  01 


1.000000 
l.OOOCOO 
1.000000 
1.000000 
1.000000 
1.3C0000 
l.OOCOCO 
1.000000 
l.OCOOCO 
l.OCCOOO 
l.OOCCOO 
1.000030 
i.COOOOO 
l.COOOOO 
1.003000 
l.OC'JCOC 
1.000000 
l.OOOOCO 
1.000000 
l.OOCCOO 
1.030000 
l.OOOCOO 
l.OOOCOO 
1.003000 
l.OOOCOO 
l.OOCOOO 
l.OGOOOO 
l.OOOCOO 
l.OOOCOO 
1.3001-30 
1.000000 
l.COOOOO 
l.COOCCC 
1 . OGOOCC 
l.OOCOCO 
1.033000 
1.009000 
l.OOOOCO 
1.003000 
l.OOCCOO 
1.000000 
1.000000 


CP/CV 


0.737604 

0.737696 

0.737798 

0.737910 

0.738032 

0.7  38 164 

0  •  7  3?  336 

0.7  1845  8 

0.71.1618 

0.7  38784 

0.731-955 

0.7  39126 

0.7  39293 

0.739448 

0.7  i  5336 

0.7J9'.97 

0.739770 

0. 739796 

0.739764 

0. 7  35(64 

0.739491 

0.7392i4 

0  •  7  3  l’c29 

0.73E5M 

0. 73S166 

0.737774 

0.737417 

0-7371 22 

0.7  35903 

0.736760 

0.736581 

0.71(645 

0.7 16616 

0.736638 

0.716643 

0.73664  7 

0. 736650 

0.736651 

0.736652 

0.736552 

0.736552 

0.736652 


RHO 


0.900000 
0.900000 
0.9CC000 
C.90COCO 
O.9COC0O 
O.SCGCOO 
0.900000 
0.9CCCC0 
0.900(00 
0. 9COOCO 
C.500CC0 
0.900000 

o.scocoo 

0.90C0C0 
0.9CCCOO 
0.5CCCC0 
0.5C0C30 
G.4C0CCQ 
O.90LCOO 
C.90CCCO 
0.9COCOO 
0.9(9000 
0. 9C0C00 
0.9C0CC0 
G.5C9O0 
C.9COCOO 

o.60crno 

0.90CCOO 
C.9COCOO 
C.9CCCC0 
0.900CCQ 
0.9CCCCC 
0.900CJ0 
0.9CCC0C 
0.90CC09 
C.9CCC JO 
G.9CCCG0 
0.900000 
0.9CCC90 
O.50CCC0 
0.9COCOO 

c.soccco 


0.60360  04 
0.60383  04 
0.60420  04 
0.60450  C 4 
0.60490  04 
0.60530  04 
0. 60570  04 
0.63620  04 
0.63670  04 
0.60730  04 
0.6:780  04 
0.63830  04 
0.6  3  390  04 
0.6J93C  04 
C. 69920  04 
C.dOlO  04 
0.61040  04 
0.61C40  04 
0.61030  04 
0.610C0  04 
0.6J95D  04 
0.6337D  04 
0.50770  04 
0.63550  04 
0-63S3O  04 
0.63410  04 
0.603CD  04 
0.50210  04 
0.63140  04 
0.6339C  04 
0.60070  04 
0.6C36C  C 4 
0 .60050  04 
C. 63360  04 
0.60060  04 
C.63C6D  04 
0.60060  04 
0.60060  04 
0.63360  C4 
0*60360  04 
0.63060  04 
0.60060  04 


1.399289  0.5615770-04 
1.399186  0.555485D-04 
1.399070  0.5491 1 70-C4 
1.398942  0. 542473T— 04 
1.398798  0.5355600-04 
1.39B639  0.5283870-04 
1.390462  0.52C9670-04 
1.398265  0.5133 15D-04 
1.398047  0.5054530-04 
1 .397806  0.49  74C3D-04 


AE  DC-TR  -75-55 


6/1 

IO 


0.144364  0.8Z60-03  1.00000C  0.0  0.6138340  03 
0.166034  0.4540-05  1.030C0C  0.0  0.6306400  03 
0.189472  0.1U0-04  l.OCCOCC  0.0  0.641B770  C3 
0.214823  0.1270-04  l.COOCCC  0.0  0.6535790  03 
0.242243  0.1450-04  1.000000  0.0  0.6657010  03 
0.271900  0.1 64C-C4  l.OOOOOC  0.0  0.678179P  03 
0.333477  0.1860-04  l.OOOOOC  0.0  0.690927D  C3 
0.339671  0. 2100-04  1.OC0C3C  0.0  0.70JB30D  03 
0.376197  0.2360-C4  l.OCOCOC  0.0  0.7167410  03 
0.416  7  64  0 . 2656-04  l.UOOJOC  0.0  0.7294  717)  03 
0.460664  0. 2970-04  1.000030  0.0  0.7417880  03 
0.S0B165  0. 3310-04  l.OOOOOC  0.0  0.7534070  03 
0.554522  0.3700-04  l.OOOOOC  0.0  0.7639B3D  03 
0.615C69  0.412C-C4  l.OOOOOC  0.0  0.7731060  C3 
0.675148  0 .4590-04  l.OOOOOC  C.O  0.7H03C10  03 
0.743130  0.5090-04  l.OOOOOC  0.0  0.7850230  03 
0.810H15  0. 5620-04  l.OOOOOC  0.0  0.7366750  03 
C. 385434  0.621D-04  l.OOCCOO  0.0  0.7d4617D  03 
0.963657  0.684D-04  l.OCOCOC  0.0  0.7782C60  03 
1.057590  0.7520-04  1.30C0CC  0.0  0.7668430  03 
1.153779  0.8240-04  1.03300C  0.0  0.7500440  03 
1.257317  0.399D-C4  1.CCC93C  0.0  0.7275320  03 
1.370345  0.9790-04  l.OOOOOC  0.0  0.6993380  C3 
1.492035  0.  lCbC-03  l.OOOOOC  0.0  0.6658980  03 
1.623657  0.1140-03  l.OOCCOO  0.0  0.6281240  C3 
1.766080  0.1230-03  l.COOCCC  0.0  0.5374150  C3 
1  .9200  82  0.1320-03  l.OOCCOO  C.O  0.5455820  03 
2 .036 j 5 1  0.140D-03  l.OCOCOC  0.0  0.5046730  CJ 
2.266312  0. 1490-03  l.OCOCOO  0.0  0.4647L70  03 
2.461673  0.1570-03  l.OGOCCC  0.0  0.4334390  03 
2.672436  0.1660-03  l.OGOCCC  0.0  0.4J600SD  03 
2.900356  0.1750-C3  l.OCCCCC  0.0  0.3B4893D  C3 
3.146959  C. 1840-C3  l.COOCCC  0.0  0.3693420  03 
3.413640  0.1940-03  l.OOCCOO  0.0  0.3600260  C3 
3.702383  0 . 2040- 33  l.OCCCCC  0.0  0.3542550  G3 
4.C14C63  0.2150-03  l.OCCCCC  0.0  0.3512560  03 
4.3513CI  O.22or-C3  l.OCOCOC  0.0  0.3499120  C3 
4.716473  0.2390-33  l.JOOCOC  C.O  0.3494080  03 
5.111227  0.252C-03  l.OOOOOC  C.O  0.3492570  C3 
5.536193  0. 2o 70-03  l.OCOCOC  0.0  0.3492270  03 
6.0COOOO  0.2830-C3  1.0C3C0C  0.0  0.3492220  03 

***** 


$  ■  0.100000D— 01  S/REF*  0.5177060-02  l  ■ 

R  -  0.2588190-02  R/REF*  0.1339920-02  OX 

XI  *  0.2208470-14  OXI  ■  0.2208470-14  OXOXI- 


C. 1775080  01  0.1441590  01  1.397540  0.4891950-04 
C. 1805840  01  0.1397080  01  1.397243  0. 4309630-04 
C. 1838020  01  0.1348360  01  1.396927  0.4724450-04 
C. 1671530  01  0. 129504D  01  1.396578  0.4639860-04 
C.19C6240  01  0.1236690  01  1.396200  0. 4555370-04 
C. 1941970  01  0.1172040  01  1.395793  0.4471560-04 
C.197147D  01  0.1103020  01  1.395360  3.4309050-04 
C.201542D  01  0.1026710  01  1.394903  0.43Ce5<-D-C4 
C. 2052390  01  0.9434370  00  1.394423  0.423C50P-04 
0.?0!irU40  01  0.8527120  00  1.39W41  0.4157140-04 
C. 2124120  01  0.7541150  00  1.393455  0.4381110-04 
C. 2107390  01  0 ■ 647328D  00  1.392°H2  0.4025070-04 
0.2187670  01  0.S32197D  00  1.392539  0. 3 769350-04 
0.2213790  01  0.4C8874D  00  1.392149  0. 392251P-04 
0.2234390  01  0.2776760  00  1.391835  0.  ?8  8.>34t>-04 
0.2247920  01  0.139731D  00  1.391627  0.3862560-04 
0.2252650  01  -.3355500-02  1.391553  0.3854950-C4 
0.2246760  01  -.1490700  00  1.391645  3.3844460-04 
0.2221400  01  -.2938730  00  1.341927  0. 3H569CC1-04 
0.2195860  01  — • 433C91D  00  1.392418  0.3954550-04 

O. 2147760  01  -. 5oG93lD  00  1.393120  0.4043120-04 
C. 2083290  01  —.6707 1  3D  00  1.394017  0. 41 63220-C4 
C.20C2560  01  -.  75539)10  00  1.395C64  0 . 43 3ft26r'-04 
0 • 19C6330  01  -.6084600  00  1.396154  0.4554020-04 
C.179e640  01  — . B25050D  00  1.397318  0. 4327900-04 
C. 1682070  01  -.8032510  30  1.399343  O.516240D-C4 

P.  1562280  01  7450  75D  00  1.399192  0.5558320-04 
0.1445130  01  -.6567510  00  1.390823  0. 6C0nr»n-04 
0.1336450  01  -.5482910  00  1.400236  0.6477550-04 
C. 1241160  01  -.4315130  00  1.40C466  0.659o40C-04 
C.  1162610  01  -.3183200  00  1.40C569  0.  74  6'-0‘'D-C4 
0.1102140  01  — .21844CD  00  1.40C596  0.7878560-04 
0.1059050  01  -.1380470  00  1.4CC550  3. 81 44480-04 
0.1030940  01  — . 7928500-01  1.400576  0.8423050-04 
C. 1014410  01  -.4C676C0-31  1.400563  0.8560270-04 
C. 1005820  01  -.1823650-01  1.4CC555  0. 86 33 ’60-04 
C • ICO  1 970  01  - . 69 50CSD-02  1.400552  0.8666520-04 
0.1C1G53O  01  -.2174150-02  1.400550  0.8679000-04 
C • ICuO 100  01  -.5337540-03  1.4CC550  0.U68277D-C4 
0.9999990  00  -.9669150-04  1.400550  0.8683640-04 
C. 1006000  01  0. I 108490-03  1.40C550  0.8683780-04 


0.9659260-02  1/ REF*  0.5000650-02 

O.IOOCOD-Ol  NIT  *  3  PHI  ■  45*00  OEG* 

C. 1509340  13  CWALL”  0.0 


DIMENSIONAL  EDGE  PROPERTIES 


PE  »  0.4812840  02 
OPEOX*  0.0 
0PEDW*-0. 1718450  02 


TE  ■  0. 341436D  03 
CTEOX*  0.0 
DTEDW=-0. 34781 ID  02 


UE  >  0.4462880  04 
OUECX*  0.0 
DUEDW*  0.4G7604D  02 


VE  ■  0.15T4010  03 
OVEOX*  0.0 
OVEDW*  0.1729990  03 


MACHE  ■  0.4925230  01 
RHOE  -  0.8206400-04 
RHQEHUE-  0. 1936440-10 
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PROPERTIES  AT  THE  UNDVARD  STREAMLINE 


S/REF 

0.0 

0.517706D-02 

0.1553120-01 


S 

0.0 

0.1000000-01 

0.3000000-01 


CFXINF 

0.0 

0.4046810-01 

0.2336540-01 


STINF 

0.0 

0.2235820-01 

0.1290880-01 


OM(OIM) 

0.0 

-0.2280080  02 
-0.1316440  02 


OH/OWSTAG 

0.0 

0.1000000  01 
0.5773660  00 


rvAii 

1.000000 

1.000000 

1.000000 
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III.  Solution  of  a  Sharp  Cone  at  Zero  Incidence  and  with  Mass  Transfer. 
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THREE-DIMENSIONAL  boundary  layer  program 

FOR 

LAMINAR  OR  TlIRFULENT  FLOW 
WITH 

BINARY  GAS  INJECTION 
OEVELOPFD  BY 
M.C.  FRIEOFRS 

AEROSOACE  ENGINEERING  DE°AR TMENT 
VIRGINIA  POLYTECHNIC  INSTITUTE  AND  STATE  UNIVERSITY 
BLACK SPUR G.  VA.  2*060 


INPUT  OATA  CARDS  ARE  AS  FOLLOnSi 


JLS 

SHARP  CONE. 

LAMINAR. 

C02 

injection. 

ALPHA-0 

CARO  001 

IE 

13 

COL 

50-52 

051 

CARO  902 

TNJCT 

13 

COL 

50-52 

003 

CARO  003 

KAOFTA 

13 

CPI 

50-52 

000 

CARO  00* 

KEND? 

13 

COL 

50-52 

001 

CARD  COS 

KONSET 

13 

COL 

50-52 
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13 

COL 

50-52 

003 

CARO  C07 

KTRANS 

13 

COL 
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CARO  COR 

LA-TRR 

13 

COL 

50-52 

001 

CARD  COO 

LPRT 

13 

COL 

50-52 

001 

CARO  010 

NJT1 

13 

COL 

50-52 

003 

CARO  Oil 

NIT2 

13 

COL 

50-52 

010 

C  A°P  012 

Ml  T  3 

13 

COL 

50-52 

023 

CARO  CIS 

NOINJ 

13 

COL 

50-52 

00* 

CARO  Cl* 

NOSE 

AS 

cei 

50-5* 

SHARP 

CARO  015 

NSOlvE 

13 

COL 

5C-52 

09* 

CARD  016 

KPLOT 

613 

COL 

50-61 

001000900000 

CARD  017 

KROFL 

613 

COL 

50-61 

091000000000 

CARO  CIS 

LRIOT 

*13 

CCL 

5C-61 

00200300*000 

CARD  C 19 

LR“FL 

613 

CCL 

50-61 

001032003000 

CARD  020 

ADTEST 

FI*. 6 

COL 

50-63 

0.001 

CARD  021 

akstar 

El*. 6 

COL 

50-63 

0.435 

CARD  022 

ALAMPA 

F14.6 

COL 

50-63 

0.09 

CARO  023 

AIET 

El*. 6 

COL 

50-63 

1.0 

CARO  02* 

ALPHA 

FI*. 6 

COL 

50-63 

0.0 

CARO  025 

ASTAP 

El*. 6 

COL 

50-63 

26.0 

CARO  026 

COPL 

A3 

COL 

50-52 

ABLATION 

CARO  027 

CKAIL 

FI*. 6 

COL 

50-63 

0.0397* 

CARD  028 

CRI 

F'.3 

COL 

5C-5* 

1.0 

CARO  02*» 

CCNV 

El*. 6 

COL 

50-63 

0.001 

CARO  010 

DISK 

A2 

COL 

50-51 

NO 

CARO  031 

DXINVS 

El*. 6 

COL 

50-63 

0.0 

CARO  032 

DXHAX 

El*. 6 

COL 

50-63 

0.01 

CARO  033 

PX1 

F5.3 

cot 

50-5* 

0.01 

CARO  03* 

EOYLAW 

A3 

COL 

50-52 

RE 1CHARDT 

CARD  035 

FTAFAC 

El*. 6 

COL 

50-63 

1.0* 

CARD  036 

ftainf 

El*. 6 

COL 

50-63 

6.9 

CARO  037 

GAS2 

A3 

COL 

50-5? 

C02 

CARO  C38 

PL  IT 

A  2 

CCL 

50-51 

YES 

CARO  03Q 

PPL 

F14.6 

COL 

50-63 

0.71 

AEDC-TR-75-55 


158 


CARO 

040 

»RT 

AS 

COL 

50-54 

AOTTA 

CARO 

041 

P»0P 

A4 

CCL 

50-53 

PSTA 

CARO 

C42 

PTW 

E14.6 

COL 

50-63 

0. 197446 

CARO 

043 

TFS 

F  14.6 

COL 

50-63 

269.2964 

CARO 

044 

TSTAG 

E  14.6 

COL 

50-63 

0.0 

CARO 

045 

VAL1JF 

E  1 4.6 

rci 

50-63 

16.9362 

CARO 

044 

XRAR 

F  14.6 

COL 

50-63 

2.0 

CARO 

C47 

G 

f  14.6 

COL 

50-63 

1.4 

CARO 

048 

R 

F  14.6 

COL 

50-63 

1716.0 

CARD 

049 

THETAC 

F14.6 

COL 

50-63 

9.0 

CARD 

05C 

XPA 

F14.6 

COL 

50-63 

10.9 

CARD 

051 

PEOG 

F  14.6 

COL 

50-63 

0.2749 

CARO 

052 

UFOG 

E  14.6 

COL 

50-63 

7897.0 

CARO 

053 

TEOG 

F  14.6 

COL 

50-63 

460.09 

CARO 

054 

RHPFPG 

E14.6 

COL 

50-63 

3.485D-0T 

0.0 

0.3031 

0.3842% 

0.14975 


fuse  stream,  stagnation,  ano  vehicle  datai 


PST  AG  ■  0.1693620  02  PStA 
TSTAG  •  0.5655220  04  OEG.R 
HSTAG  -  0.3399830  08  FT**2/SEC**2 
PINF  ■  0.3990690-03  °SIA 
RHOINF*  0.1242340-06  SLtlGS/FT**3 
TINF  »  0.2692R60  03  DEC.R 
UlNe  »  0.6047280  04  FT/SEC 
HINF  ■  0.1CC3000  02 
CP/CV  ■  0.1400000  01 

R  ■  0.1717670  04  FT*»2FSEC9*Z/0EG.R 
TH/TO  ■  0.1974460  00 
ALPHA  ■  0.0  OFG. 

THETAC*  C. 9000000  01  OFG. 


POINTS  AT  WHICH  A  SOLUTION  IS  TO  BE  OBTAINEO* 

1  XSTAIII 

1  0.0 

2  C.0001C0 

3  0.084250 

4  0.199750 


$  .  o.O  S/REF*  0.0 
R  m  0.0  R/°FF*  O.C 
XI  •  0.0  OXI  •  0.0 


l  m  o.O  Z/REF*  0.0 
nx  -  o.iooooo-ox  nit  -  6 
DXDXt*  0.0  CWALL-  0.0 


PHI  -  0.0  DEO. 


DIMENSIONAL  EDGE  PRO»ERTIFS 
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pe 

■  0.2749000 

00  TE 

■  0.46C09CO  03 

UE  •  0.7897000  94 

VE  •  0.0 

MACHE  -  0.7507700  01 

OPEDX 

■  0.0 

OTEDX»  0.0 

OUEOX-  9.0 

• 

OVEDX-  0.0 

RHOE  -  0.3485090-06 

OPEOWi 

-  0.0 

OTEOH*  0.0 

OUECW-  0.0 

DVEOM-  0.0 

RHOEMUE-  0.1065200-12 

LOCAL 

EDGE’ REYNOLDS  NUMBER 

-0.0 

ETA 

V 

F 

FN 

G 

GN 

H 

HN 

c 

CN  V 

0.9 

0.0 

0.0 

0.487041 

0.0 

0.0 

0.200002 

0.295166 

0.857866 

-0.272372  0.0 

0.380174 

0.0 

9.039524 

0.498749 

9.0 

0.0 

0.224366 

0.312559 

0.837460 

-9.237151  -0.1580-02 

0.166891 

0.0 

3.083284 

0.510126 

0.0 

0.0 

0.252273 

0.330938 

0.818443 

-0.202297  -0.6900-02 

0.260684 

0.0 

0.131641 

C. 529454 

0.9 

0.0 

0.294217 

0.349937 

0.P01U4 

-0-167986  -0.17CD-01 

0.362139 

0.0 

0.184**6 

0.528845 

0.0 

0.0 

9.323707 

0.369011 

0.785835 

-0.133967  -0.33C0-91 

0.471854 

0.0 

0.243292 

0.534289  ■ 

0.3 

0.0 

0.362238 

0.387293 

0.773C33 

-0.  1C0C37  -0.5650-01 

0.599532 

0.0 

9.306931 

0.535127 

9.0 

0.0 

9.409222 

0.403454 

0.763215 

-0.066071  -0.8920-01 

0.718594 

0.0 

0.375274 

0.529540 

0.3 

0.0 

0.461837 

0.415576 

0.756959 

-0.032*78  -0.1330  00 

0.857733 

0.0 

0.447964 

0.515492 

0.0 

0.0 

0.573116 

0.421124 

0.754904 

0.001716  -0.1*00  00 

1.307896 

0.9 

9.523712 

0.441039 

0.0 

0.0 

0.583256 

0.417126 

0.757713 

0.034742  -0.2630  00 

1.173314 

0.0 

0.609716 

0.454868 

0.0 

9.0 

0.649923 

0.400691 

0.765990 

0.065910  -0.3540  00 

1.345986 

0.0 

0.676578 

9.406942 

0.0 

0.0 

0.T17S79 

0.369893 

0.780149 

0.093484  -0.4670  00 

1.535993 

0.0 

0.748491 

0.349032 

0.0 

n.o 

0.784112 

C. 324801 

C. 800173 

0.115162  -0.6020  00 

1.741505 

0.0 

0.813594 

0.284829 

0.0 

0.9 

0.845170 

0.265221 

0.825470 

0.128475  -C.763D  00 

1.963734 

0.0 

0.864449 

0.214402 

0.0 

0.0 

0.897764 

0.205548 

0.854682 

0.131538  -0.9500  00 

2.234236 

0.0 

0.914466 

C.  158121 

0.0 

0.0 

0.939469 

0.143716 

0 .88566  7 

0.127827  -0.1160  01 

2.464243 

0.0 

0.948286 

0.105463 

9.9 

0.0 

0.969310 

0.089497 

0.919892 

0.107063  -0.1410  01 

2.745503 

0.0 

0.971602 

0.064171 

0.0 

0.0 

0.988001 

0.047714 

0.942907 

0.084539  -0.1680  01 

3.049737 

0.0 

0.986142 

C. 034938 

0.0 

0.0 

0.997699 

0.020075 

0.964847 

0.060242  -0.1980  01 

3.373738 

0.0 

0.944157 

0.016587 

0.0 

0.0 

1.001338 

0.005110 

0.980780 

0.037985  -0.2300  01 

3.734617 

0.0 

0.997947 

0.006638 

C.O 

0.0 

1.091777 

-9.003804 

0.990895 

O.C20681  -0.7660  01 

4.119536 

0.9 

0.959427 

0.002143 

0.9 

0.0 

1.001125 

-0.001817 

0.996368 

0.30*471  -0.3040  01 

4.535865 

0.0 

0.994880 

0.000529 

0.0 

0.0 

1.033401 

-0.001150 

0.999823 

0.003544  -C.3460  01 

4.986165 

0.0 

0.994983 

0.090092 

0.0 

0.0 

1.009142 

-0.030451 

0.999707 

0.001043  -0.3910  01 

5.473211 

0.0 

0.«99999 

0.000019 

0.0 

0.0 

1.000026 

-0.000117 

0.999051 

0.000228  -0.4390  01 

6.0C3339 

0.0 

1.900000 

-0.C90101 

0.0 

0.0 

1.000030 

-0.000007 

1.000030 

0.000009  -0.4920  01 

ETA 

Y/L 

ROHDE 

XMU 

E* 

CHI 

LEL 

LET 

FRL 

PRT 

SP  HT 

0.3 

0.0 

0.41204 

0.63640-06 

0.0 

0.0 

1.000030 

1.000000 

0.746431 

0.900CCO 

0.63209 

04 

0.383174 

0.0 

0.37139 

0.68930-06 

0.0 

0.0 

1.900030 

1.000C90 

0.749271 

0.909090 

0.64160 

04 

0.156891 

0.0 

0.33843 

C. 73920- 06 

0.0 

0.0 

1.093030 

1.000090 

0.752043 

0.900POO 

0.65120 

04 

0.260694 

0.0 

0.31183 

0.78530- 06 

0.0 

0.0 

l.OOCOOO 

1.000000 

0.754573 

0. *09000 

0.66010 

04 

0.362130 

0.0 

0. 29067 

0.82640-06 

0.0 

3.0 

i.ooeooe 

1.003090 

0.756736 

0.900000 

0.66790 

C4 

0.471854 

0.0 

0.27439 

0.86120-06 

9.0 

0.0 

1.000000 

1.000000 

0.758467 

0.900000 

0.67420 

04 

0.590532 

0.0 

0.26269 

0.88810-06 

0.0 

0.0 

l.oooono 

1. 0000*0 

0.759739 

0.90CC00 

0.67890 

04 

0.719394 

0.0 

0.25557 

0. *0540-06 

0.0 

0.0 

1.090030 

l.  OOOC 90 

0.769528 

0.900000 

0.68190 

04 

0.557730 

0.0 

0.25328 

0.91110-06 

0.0 

0.0 

l.OOOOCO 

1.000000 

0.760  784 

0.90C000 

0.63280 

04 

1.037896 

0.3 

0.25641 

0.90330-06 

0.0 

0.0 

1.300090 

1.009000 

9.760433 

e.*cocoo 

0.68150 

04 

1.170314 

0.0 

0.265°3 

0.88050-06 

9.0 

0.0 

l.OOCCOO 

1.000030 

0.75*384 

0.900000 

0.67760 

04 

1.345986 

0.0 

0.28728 

P.64180-06 

0.0 

0.0 

1.000000 

1.009000 

0.757516 

P.9CCCC0 

0.67070 

04 

1.535993 

0.0 

0.31047 

0.78780-06 

9.0 

0.0 

1.000030 

1.090090 

0.754  709 

0.900000 

0.66060 

04 

1.7415C5 

0.0 

0.35013 

0.72070-06 

0.0 

0.0 

1.000090 

I. 0090 00 

0.7  51911 

0.500C00 

0.64760 

04 

1.963786 

0.0 

0.40529 

0.6446P-06 

0.0 

0.0 

1.900C30 

1.0*9009 

9.746859 

.  0.9POC09 

0.63350 

04 

2.204236 

0.0 

0.47857 

P. 56570-06 

3.0 

0.0 

1.000000 

1. 900000 

0.743015 

.0.900000 

0.62080 

04 

2.464243 

0.0 

0.56998 

0.491 2P-06 

C.O 

0.0 

l.onocoo 

l.OOCCOO 

9.740127 

P.900P00 

0.61150 

04 

2.745503 

C.O 

0.67451 

0.4273P-06 

0.0 

0.0 

1.000039 

1.003900 

0.738352 

0.900000 

0.635*9 

04 
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3.0*9707 

0.0 

0.78018 

0.37800'' 06  0.0 

0.0 

1.000000 

.000000  0 

.737*34 

0.900000 

0.60300  04 

3.373738 

0.0 

0.87126 

0.3**10-06  0.0 

0.0 

1.090000 

.000000  0 

.737020 

0.9C0C00 

0.60170 

04 

3.73*617 

0.0 

0.93627 

0.32350-06  0.0 

0.0 

1.000030 

.ooooeo  e 

.7368*7 

0.900000 

0.60120 

04 

*.119336 

0.0 

0.97396 

0.31270-06  0.0 

0.0 

1.C00030 

.000000  0 

.736778 

C.900C00 

0.60100 

04 

*.535365 

0.9 

0.991*7 

'••3  0  790- 

■06  <3.0 

0.0 

1.300030 

.000000  0 

.736753 

0.900000 

0.6009D 

04 

*.986166 

0.0 

0.99737 

0.30620-06  0.0 

0.0 

1.000000 

.000000  0 

.736T** 

0.900000 

0.60090 

04 

5.*732 1 1 

0.0 

0.99965 

C.305PP- 

■06  0.0 

0.0 

1.000000 

.000000  0 

.7367*2 

C.900C00 

0.60090 

04 

6.0f303!» 

0.0 

l.COOOO 

0.33570- 

06  0.0 

9.0 

1.000033 

.000000  0 

.7367*1 

0.900000 

0.60090 

04 

ET* 

Y/l 

Z 

ZN 

TFH* 

T/TE 

TN 

CR/CV 

RHO 

0.3 

0.0 

t.oocooo 

0.0 

0.111 6609 

0* 

0.2*26920 

01 

0.3**7660 

01 

1.373187 

0.1*33300-06 

0.38317* 

c.o 

l.OOCOOC 

0.0 

0.12388*0 

0* 

0.2692610 

01 

0.3177360 

01 

1.365570 

0. 1291 B70-C6 

9.166891 

0.0 

l.COOCOC 

0.0 

0.1359*90 

0* 

0.295*83D 

01 

0.286*990 

01 

1 .3  58268 

0.1177220-06 

0.26068* 

0.0 

1.3C3G0C 

0.0 

0.1*75*40 

C* 

0.3206890 

01 

0.2504290 

01 

1.351721 

0.109*700-06 

0.3671 33 

0.0 

l.0n->npc 

0.0 

0.15528*0 

0* 

0.3**C280 

01 

0.2C91770 

01 

1.3*6206 

0.1911110-06 

9. *7185* 

0.0 

1.3C309C 

0.0 

0.  167678D 

0* 

0. 36***50 

01 

0. 1625*30 

01 

1.3*18*8 

0.95**650-07 

0.590532 

0.0 

l.OOCCOO 

P.C 

0.1751**0 

C* 

0.38067*0 

01 

0.1107673 

01 

1.338676 

0.91377*0-07 

0.71889* 

0.0 

1.0P9C9C 

0.0 

0.1B0P2TD 

0* 

0.391287D 

01 

0.5*88110 

00 

1.336772 

0 • SB  *9890-07 

0.957739 

0.0 

1.000300 

0.0 

0.1816530 

0* 

0.39*8210 

01 

-•  2955*7D- 

■01 

1.33(089 

0.8810330-07 

1.317396 

3.0 

l.OCOOCO 

0.0 

0.179*330 

0* 

0.3999970 

01 

-.5927773 

00 

1.336955 

0.9919  31  D-07 

1.17331* 

0.0 

1.0C7000 

0.0 

0.173010'' 

c* 

0.3760360 

01 

-.109*770 

01 

1.339558 

0.925C*5C-07 

1.3*5986 

c.o 

1.9C900C 

0.0 

0.162*160 

0* 

0. 3530  1 00 

01 

-.1*85160 

01 

1.34*2*6 

0.98538*0-07 

1.535993 

0.0 

l.OOCOOC 

0.0 

0.1*81930 

0* 

0.322C960 

01 

-'.1721770 

01 

1.351372 

0. 1979060-06 

1.7*1505 

0.0 

l.OOOOCC 

0.0 

0.131*370 

0* 

0. 78561 10  01 

-.17835*0 

01 

1.360971 

0. 121792P-C6 

1.963  786 

0.0 

1.3C3000 

0.0 

0.11352CD 

0* 

0.2*67350 

01 

-.1678060 

01 

1.372028 

0.1*09920-06 

2.206--06 

0.0 

1.0C3000 

0.0 

0.961*590 

03 

0. 233972D 

01 

-.1**1930 

01 

1.3825*0 

0. 166*590-06 

2.  *6*2*3 

0.0 

l.ojoooo 

0.0 

0.8372090 

03 

0.175**60 

01 

-.1132*60 

01 

1.39C620 

0. 1982660-06 

2. 795503 

0.0 

1.C3C93C 

«.(J 

0.6821090 

03 

0.1*R2550 

01 

-.8115350 

00 

1 .395662 

0*23^6?°r-06 

3.9*9707 

0.0 

1 .003C30 

0.0 

0.5877260 

03 

0.1281760 

01 

-.5279310 

00 

1.398290 

0.271 30*0-06 

3.376738 

0.0 

l.CCCOOO 

0.0 

0.52537*0 

03 

0.11*7760 

Cl 

-.3035330 

03 

1 .390*86 

0.  393C 690-06 

3.73*417 

0.0 

1.3CC000 

0.0 

0. *9 l*C7D 

C3 

0. 136E07D 

01 

-.1591530 

00 

1 .399986 

0.3256820-06 

*.119536 

0.0 

1. 000000 

0.0 

0. *723900 

03 

0.1026730 

01 

-.7060810- 

■01 

1.40C1B* 

0.3387930-06 

*.535965 

0.0 

l.OOCOOC 

0.0 

0. *6*0*70 

03 

0.1038630 

01 

-.2602010-01 

1.400259 

0.3**80*0-06 

*.986166 

0.0 

1.300300 

0.0 

0. *619720 

03 

0.1307130 

01 

-.7611*30- 

-02 

1 .400283 

0.3*71100-06 

5. *73211 

0.0 

1.90000C 

0.0 

0. *402530 

03 

0. 1000350 

01 

-.166*850-02 

1.400290 

0.3477270-06 

6-300JC3 

0.0 

1 .900000 

0.0 

0. *600900 

03 

O.IOOCOOO 

01 

-.6603820- 

***** 

■0* 

1. *00291 

0.3*78500-06 

S 

O.ICOC  000-03 

S/REF«  0.5006260-03 

l  -  0.9876880-0* 

Z/REF»  0.49*4620-03 

4  - 

0.156*340-04 

P/RfF-  0.7831510-0* 

DX  ■  0.10C0O0-03 

NIT  -  2 

PHI  ■  0.0  0E6. 

XI  • 

0.68623*0-23 

DXI  •  0.68623*0-23 

0X0X1«  0.4857*30  19 

CHAU*  0.0 

DIMENSIONAL  FOGE  PROPERTIES 

PE  - 

0.2 7*9 COO  00 

TE  -  0.4600900  03 

UE  »  0.7897000  04 

VE  -  0.0 

HACHE  -  0.7307700  91 

DPEDX* 

C.O 

DTEDX>  0.0 

DUEDX>  0.0 

OVEDX-  0.0 

RHPE  -  0.3*85000-06 

DPEDW- 

0.0 

OTEDW*  0.0 

DUEOVr-  0.0 

DVEDW-  0.0 

RHOEMUE-  0.1065290-12 

LOCAL  EOGE  REYNOLDS  NUMBER  >0.9003300  00 
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NONDIMENSIONAL  BOUNDARY  LAYERS  PARAMETERS 


CFX1NF*  0.291326D  01  CFXEOG-  0.1078430  01 
C HEDGE*  0.6172560  00  CHINF  -  0.16«9180  01 
OW  *-0.6306060  00  CHIMAX*  0.1077609  01 


DIMENSIONAL  boundary  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION*  0.1171890  02  PSF 
TRANSVERSE  SKIN  FRICTION  ■  0.0  PSF 
UAH  HEAT  TRANSFER  RATE  ■- 0.5250360  02  BTU 


ETA 

T 

F 

FN 

G 

0.0 

0.0 

0.0 

0.636963 

0.0 

0.080176 

0.1T7D-06 

0.039517 

0.698667 

0.0 

0.166891 

0.3880-06 

0.033271 

0.5IOC61 

0.0 

0.260686 

0.6360-06 

0.131619 

0.520370 

0.0 

0.362133 

0. 9279-04 

0.186876 

0.528915 

0.0 

0.671356 

0.1260-03 

0.263256 

0.536217 

0.0 

0.59153? 

C.  1663-03 

0.136785 

0.535362 

9.0 

0.718396 

0. 2070-03 

0.375222 

0.529690 

0.0 

0.857733 

0.2560-03 

0.6679C7 

0.515673 

0.0 

1.3:7696 

0.3350-03 

0.523656 

0.691063 

0.0 

1.173316 

0.3530-03 

0.6C0660 

C. 656896 

0.0 

1.365986 

0.6130-03 

0.676528 

0.606993 

0.0 

1.535993 

0.669R-33 

0.768450 

C. 369078 

0.0 

1.7615C5 

0.5220-03 

0.813563 

0.286972 

0.0 

1.363785 

0.5730-03 

0.869627 

0.219437 

0.0 

2 . 206236 

0 • 62C0-03 

0.916671 

C. 153166 

0.0 

2.666263 

0 . 663T-03 

0.968275 

0.105683 

0.0 

2.765503 

0.7123-03 

0.9715°5 

0.066182 

0.0 

3.369707 

0. 7330-03 

0  .9*6133 

0.036965 

0.0 

3.378738 

0.7730-03 

0.996155 

0.016591 

0.0 

3.736617 

o.R06r-o3 

0.997966 

0.006660 

0.0 

6.119536 

0.861C-03 

0.999627 

0.CC2164 

0.0 

6.535365 

0.8783-03 

9.999380 

0.000528 

0.0 

6.986165 

0.9160-03 

0.999983 

C. 000092 

0.0 

5.67321  1 

0.9513-03 

0.99901)9 

0.C9O010 

0.0 

6.303030 

0.100 C-52 

1.000100 

-0.000301 

0.0 

ETA 

V/L 

R3R0F 

XHU 

0.3 

0.0 

0.41204 

C.  63  64  0-06 

0.0 

0.381174 

0.E85D-04 

0.37140 

0.68930-06 

0.0 

0.166991 

0.1940-03 

0.33844 

0.73920-06 

0.0 

0.261684 

0.319D-03 

0.31195 

0.78530-06 

0.0 

0.362133 

0.464D-03 

0.29079 

9.82630-06 

0.0 

0.471856 

0. 6310-03 

0.27442 

0. *61 1 0-06 

0.0 

0.593532 

0,e220-03 

0.26272 

0.88800-96 

0.0 

0.715994 

0.1040-02 

0.25559 

0.»0530-06 

0.0 

0.857733 

0.l27r-02 

0.25131 

0*91 100-96 

0.0 

1.337396 

0.153C-32 

0.25643 

0.90320-06 

0.0 

CFW1NF*  0.0 
STEDGE-  0.5666910  00 


CFMED6-  0.0 

STINF  -  0.1506930  01 


DELTA*! XI  »  0.5803600-03  THETAtXI  ■  0.3572060-06 

OELTA*fPHH*  0.9918360-03  THETAIPHT1-  0.0 

OELTA  (FT)  -  0.7788860-03 


GN 

H 

HN 

C 

CN  V 

0.0 

0.200002 

0.295107 

0.857866 

-0.2T231T  0.0 

0.0 

0.224360 

0.312479 

0.837464 

-0.237C97  -O'.  13BD-02 

0.9 

0.252260 

0.330839 

0.E1B45Z 

-0.202243  -0.6900-92 

0.0 

0.286193 

0.349823 

0.801128 

-0-167940  -0.1700-01 

0.9 

0.323671 

0.368838 

0.785853 

-0.131929  -0.3300-01 

0.0 

0.362188 

0.387170 

0.771055 

-0.100910  -0.5650-01 

0.0 

0.409159 

9.403344 

0.763239 

-0.066057  -0.9919- 

-01 

0.0 

0.461812 

0.415493 

0.756994 

-0.032079  -0.1330 

00 

C.O 

0.529032 

0.421982 

0.754928 

0.CC1699  -0. 1900 

00 

0.9 

9.583169 

0.4171  34 

0.757733 

0.034709  -0.2630 

00 

0.0 

0.649841 

0.400750 

0.766C93 

0. 06 58 63  -0.354C 

00 

O.C 

0.717812 

0.369984 

0.780145 

0.091430  -0.4670 

00 

0.0 

0.7B4C64 

0.324905 

0.800167 

0.115109  -0.6020 

00 

0.0 

0.845142 

0.268312 

0.625463 

0.129432  -0.7630 

00 

0.0 

0.897754 

0.205611 

0.954658 

0.131491  -0.9500 

00 

0.0 

0.939470 

0.143750 

0.895639 

0.  123918  -Q.U60 

91 

0.0 

0.969317 

0.389509 

0.915864 

0.107069  -0.1410 

01 

0.0 

0.989909 

0.047713 

0.942492 

0.C94554  -0.1690 

01 

0.0 

0.997707 

0.023070 

0.964923 

0.960261  -0.1980 

01 

0.0 

1.001343 

0.035105 

0.989  767 

0.038093  -9.2300 

01 

0.0 

1.091780 

-0.000803 

0.99C989 

0.020693  -0.2660 

01 

0-0 

1.001126 

-0.001921 

0. 9«>6364 

0.0094  79  -0.3040 

01 

0.0 

1.009482 

-0.901152 

0.998822 

0.003548  -0.3460 

01 

0.0 

1.090143 

-0.009452 

0.999707 

0.001044  -0.3910 

01 

0.0 

1  •00,'026 

-9.900117 

0.999951 

0.000229  -0.4390 

01 

0.0 

1.000000 

-0.000007 

l.OOCOOO 

O.OOOOC9  -0.4920 

01 

CHI 

LEL 

LET 

PRL 

PRT 

SP  HT 

0.0 

1.000090 

1.090C0C 

0.746431 

0.9C9C00 

0.63200  04 

0.99640-03 

1.000090 

l. 000000 

0.74R2T0 

0.900C90 

0.64160  04 

0.37960-02 

1.030090 

1.090000 

0.752042 

0.900000 

0.65120  04 

0.83459-02 

1.000030 

1.000300 

0.744571 

0.900000 

0.66019  04 

0.14859-01 

1.900000 

1.0P900C 

0.756734 

O.90PCOO 

0.66700  04 

0. 23770-01 

1.030090 

1.000000 

0.758464 

0.900000 

0.67420  04 

9.35870-01 

1.009000 

1.09030C 

0.759736 

0.900500 

0.67890  04 

0.5231D-01 

1.039050 

1.999000 

0.760525 

0.900000 

0.63190  04 

0.74860-01 

1.900090 

1.00090C 

0.760T81 

C.SOOCOO 

0.68280  04 

0.10610  00 

1.009093 

1.090000 

0.760431 

0.900000 

0.68159  04 
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1.337896 

0.4280-91 

0.38858 

0.73290-06 

0.0 

0.29650  01 

1.213193 

1.090000 

0.94**35 

0.90C900 

0.1*170 

05 

1.17331* 

0.5100-01 

0.37027 

0.7«*2O-06 

0.0 

0.402*0 

01 

1.186917 

1.000000 

0.9*0*95 

0.900000 

0.13T40 

85 

1.3*39  86 

0.6330-01 

0.352*7 

0.775RO-06 

0.0 

0.53550 

01 

1.15628* 

1.090000 

0.93*389 

P.400C90 

9.13290 

09 

1.535993 

0.7080-01 

0.33612 

0. 74610-06 

0.0 

0.70230 

01 

1.1298*6 

1.000000 

0.4256*9 

0.900000 

0.12550 

05 

1.7*1505 

0. 8290-01 

0. 32266 

0.81210-06 

0.0 

0.91290 

01 

1.089*39 

l.OOCTOO 

0.913*90 

0.990090 

0.11730 

05 

1.963786 

0.9620-91 

0.31*21 

0.81930-06 

0.0 

0.11850 

02 

1.535399 

1.000990 

9.8969*2 

0.400000 

0 . 109  ID 

05 

2.20*2C6 

O.lllD  00 

0.31388 

0.81120-06 

0.0 

0.15520 

02 

0.986815 

1.009000 

0.875365 

0.900000 

O.«9560 

0* 

2. *6*2*3 

9.1Z6P  00 

0.32611 

9.78080-06 

0.9 

9. 20  729 

02 

0.4366*2 

1.90  30rr 

0.8*8636 

p.orpC9(' 

0.89680 

n* 

2.7*5500 

3.1*20  00 

0.35710 

0.72320-06 

0.0  - 

0. 28*20 

02 

0.887621 

1.000900 

0.8178*5 

0. 900000 

0.89010 

0* 

3 . 0*  9  7  C  7 

0. 1570  00 

0.*1*56 

0.6*050-06 

0.0 

0.3" 750 

02 

0.8*498* 

1.000000 

0.786991 

0.90CC90 

0.71629 

0* 

3.373738 

■3.1710  09 

0.59512 

0.5*500-06 

0.0 

0.5*320 

C2 

9.81 129* 

1 .099990 

9.762599 

f. 909059 

0. 65709 

0* 

3.73*617 

0.1930  0-7 

0.62706 

0.45530-06 

0.0 

0.66030 

02 

0.790590 

1.000000 

0.7*7795 

0.900000 

0.62340 

0* 

*.119536 

0.19*0  00 

0.76183 

0.38610-06 

0.0 

0.62720 

02 

0.779239 

1.003090 

0.7*0671 

o.orocoo 

0.60890 

0* 

*.515365 

0.73*0  03 

0.87761 

0.3*210-06 

0.0 

0.4136D 

02 

0.773825 

1.000900 

9.737891 

0.909000 

0.63320 

0* 

*.986166 

0.213C  00 

0.95194 

0. 31930-06 

0.0 

0.17760 

02 

9.771751 

1.000900 

0.737012 

0.490000 

9.691*0 

c* 

5. *73211 

0.2230  00 

0.99722 

0.33910-06 

0.0 

0,49000 

01 

0.771132 

1.000000 

0.736788 

0.900000 

0 .60 1 CP 

0* 

6.303-309 

0.2330  90 

1.00000 

0.39570-06 

9.0 

0.30850  .00 

0.770929 

1.000000 

0.7367*1 

0.900C00 

0.69990 

0* 

ET6 

Y/l 

z 

7N 

TEMP 

T/TS 

TN 

CP7CV 

RHP 

0.9 

0.0 

0.373106 

0.121*28 

0.111660D 

04 

0.2426920 

01 

0.5321280 

00 

1.095200 

9.182**20-06 

0.99917* 

0.2960-02 

0.3830*3 

0.126*83 

0. 1136780 

04 

0.2*70740 

01 

0.5586*90 

00 

1.095962 

0.  178411D— 06 

0.166391 

0.623P-02 

0.39*256 

0.132210 

0.1159*20 

04 

0.2514440 

01 

0.5762*70 

00 

1.096868 

9.17*0820-06 

0.26)68* 

0.9870-92 

0. *06958 

0.138722 

0.118*700 

04 

0.257*439 

01 

9.5951870 

00 

l.097<>62 

0.164**00-06 

0.362130 

0.1390-01 

0.421*01 

0.1*6097 

0.1212950 

04 

0.2636)30 

01 

0.61516*3 

00 

1.099297 

0.1644750-C6 

0.47195* 

0.13*0-01 

0.437883 

0.15**03 

0.12**530 

C4 

0. 2744970 

91 

0.6)55*40 

00 

1 .1409*9 

0.1541830-06 

0.59)532 

0.2350-01 

0.456754 

9.163684 

0. 1779790 

04 

0.2781 610 

01 

0.6551319 

00 

1.103017 

9. 1535720-06 

0.71339* 

9.2920-01 

0.478*23 

0.17397* 

0.13190Z0 

04 

0.2966860 

01 

0.6717950 

09 

1.1056*0 

3. 1*76610-06 

0.957730 

0.3550-01 

0.5C3356 

0.185211 

0.1367330 

C4 

9.2961000 

01 

0.681869D 

09 

1.109004 

0.1*1*400-06 

l.'CTSP* 

0.4290-91 

0.532077 

C. 1972 33 

0* 1*09*40 

0* 

0.3063510 

01 

0.6792110 

00 

1.113388 

0.135U  60-06 

1.17931* 

0.51)0-01 

0-565139 

C. 23966* 

0.1*59550 

04 

0.3172320 

01 

0.65387)0 

00 

1.1141)5 

0.1787970-06 

1 .3*5986 

0.6930-01 

0.6C3P7C 

0. 221690 

0.1510260 

04 

0.32825*0 

01 

0.5901210 

00 

1.176732 

3.1226050-06 

1.535493 

0.  7030-01 

0.6*62*5 

C. 231835 

0.1557110 

C* 

0.338*370 

01 

0.46560)3 

33 

1.136821 

3.1169240-C6 

1.7*1505 

0.8280-01 

0.69*6*9 

0.237616 

0.1592100 

c* 

0.3460*10 

01 

0.2530050 

00 

1.1502*0 

0. 11 2238T-06 

1.961786 

0.9620-91 

9.7*7*98 

0.235*17 

0.1602599 

c* 

0.3*83720 

01 

-. 7056660' 

•91 

1.168084 

0.1392990-06 

2.23*206 

0.1 110  00 

0.80276* 

0.221119 

0.1571810 

C4 

0.34163)0 

01 

-.4989310 

00 

1.191738 

0.1091824-06 

2.46*2*3 

0.1260  03 

0.356003 

0.1921*9 

0.1*83390 

C* 

0.322*1*0 

Cl 

-.96*5980 

39 

1.272738 

).  ll3*3Pn-06 

2.7*5500 

0.1*20  09 

0.905318 

4.1505)9 

0.13)1509 

0* 

0.2994010 

01 

-• 1333*30 

91 

1.262203 

0.174717D-C6 

3.0447C7 

0.1570  00 

0.9*33e5 

0. 10399* 

0.1131530 

0* 

9.2459370 

01 

-. 1*50510 

01 

1.3C7608 

0.  l**2C5r-06 

3.373738 

0.1710  00 

0.97474* 

0.067376 

9.4240550 

03 

0.194O7J9 

01 

-.12826*0 

01 

1.3*972* 

0.1757060-06 

3.73*617 

0.1930  00 

9.986973 

0.032020 

0.7370240 

03 

0.1601920 

01 

-.9367920 

00 

1.377577 

0.21812*0-06 

4.119536 

0.19*9  00 

9.995932 

0.013761 

0.69*9*60 

03 

C. 1314840 

01 

-.57*76*0 

00 

1.392030 

0.Z6SDC7P-C6 

4.535365 

0.23*0  09 

0.99852* 

9.02*783 

0.52*5160 

03 

0.1140030 

01 

-.2975830 

09 

1.39783* 

0.3052780-06 

4.98616* 

0-2130  00 

0.949666 

9.:-C1281 

0.48)3760 

C3 

0.1050610 

Cl 

-.1783160 

00 

1.3°0698 

0.3311310-06 

5.473211 

0.2230  00 

0.9949*9 

0.?rl025l 

0.4660530 

03 

0.1012960 

91 

-.4506*90- 

-01 

1.400185 

3.3*3*060-06 

6.3C0C00 

0.2330  09 

l.OCOOOO 

0.000009 

0.4600900 

03 

0.1000000 

01 

-.9931590-02 

1.400291 

3.3*78500-06 

S  -  0.1947500  03 
R  ■  0.312*780-01 
XI  -  0.5*69310-13 


S/REF •  O.IOOCOOP  01 
R/»EF«  0.156*3*0  03 
0X1  -  0.2027960-1* 


7  ■  0.1972910  00 

OX  •  0.250000-02 
OXDXI-  0.1217*00  13 


Z/REFa  0.4876960  00 
NIT  «  12 

CW*LL-  0.397*000-01 


PHI  •  0.0  OEG. 


AEDC-TR -75-55 


DIMENSIONAL  EOCE  PROPERTIES 


PE  *  0.2749030  00  TE  •  0.4600900  03 
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DIMENSIONAL  BOUNDARY  LAYER  PARAMPTFRS 
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PROPERTIES  AT  THE  MINOWARP  STREAMLINE 


S/REF 

s 

.CFX1NE 

ST  INF 

ONIOIFI 

QM/QVSTAG 

{HALL 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1 .000000 

0.9006260*03 

0.1000000-03 

0.2413260  01 

C. 1504930  Ot 

-0.5250340 

0* 

0.1000000  01 

l.ecoooo 

0.9056320' 

-01 

0.1CtCCCD-01 

0.2898610  00 

0.1497340  00 

-0.5223860 

01 

0.9949560-01 

i.cocoeo 

0.1006260 

00 

0.2010000-01 

0.2054670  00 

0.1061380  00 

-0.3702480 

01 

0.7052640-01 

1.009000 

0.15C6830 

00 

0.301COCD-01 

C. 1679020  00 

0.8673230-01 

-0.3O75960 

Cl 

0.576)189-01 

l.ccncco 

0.20C751D 

00 

0. 4010000-01 

0.1454670  00 

0.7514310-Cl 

-0.2621560 

01 

0.4993120-01 

i.ecoeoo 

0.2508141 

30 

1.5PIC9C0-OI 

0.1331420  00 

0.6722670-31 

-0.2345)70 

Cl 

C. 4467090-01 

l.OOPOCO 

0 .3008760 

00 

C.6CIC0C0-01 

0.11*9230  00 

0.6137950-01 

-9.2141380 

01 

C.4C7P550-01 

l.COOOCO 

0.3509390 

00 

0.70109C0-0I 

0.1100210  00 

0. 5683320-01 

-0.1932770 

01 

0.3776460-01 

l.ocorco 

0.6010310 

00 

0.8C  ICCC1-91 

O«102°250  00 

0.4316730-01 

-0.1854880 

01 

0.3532870-01 

i.ecoeco 

0.6217770 

00 

0.0425OC0-01 

0.100358D  00 

C. 5184130-01 

-0. 1808610 

01 

0.3444761-01 

i. rococo 

0.6267330 

00 

0.8525?rD-Gl 

0.8448390-01 

0.3224810-01 

-0.1061440 

01 

0.2021660-01 

C.8479P0 

0.62928  70 

00 

0.8575000-01 

0.8243530-01 

0.3141660-01 

-0.1022330 

01 

0.1947181-01 

0.81*651 

0.63C538O 

CO 

0.3600000-01 

C. 8116650-01 

0.311 3510-01 

-0.1018820 

ei 

0.1921439-01 

C. 807557 

0.6317900 

00 

0  .86.25000-01 

0. f C19950-01 

0.3076490-01 

-0.9925840 

90 
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0.797816 
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00 
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0.18711 19-Cl 
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00 
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0  .466  8340 
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CO 
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00 
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09 
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0 .63257  3D-01 
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-D. 779C39P 

00 
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00 
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90 

0.1420830-01 

0.653386 

0.4843550 

00 
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0.6 1627R0-01 

0.2482893-01 

-0.7546530 

30 

0.1437)40-01 

0.652828 

0.4893620 

00 

0.9775CCO-O1 

0  .6365170-01 

0.239568n-01 

-9.7246250 

00 

C. 13801 51-01 

0.6414C5 

0.4918650 

00 

0.9B25000-01 

0.6012960-01 

0.2422391-01 

-0.7324780 

00 

0.1395110-01 

0.640894 

0.4968710 

00 

0.9925030-01 

0.5922)80-01 

0.2341760-01 

-0.7C4961O 

90 

0.1342730-01 

C. 630393 

0.4953740 

00 

0.9975000-01 

0.5574120-01 

0.2366119-01 

-9.7121130 

00 

0.1356320-01 

0.629921 

0.5043800 

00 

0.1B075C0  30 

0.5  739480-01 

C. 2296890-01 

-9.6885970 

00 

0.13115)1-01 

0.620663 

0 .5C5384D 

00 

3. lB  125CP  00 

0.5744170-01 

0.2)15)60-01 

-9.6939130 

00 

0. 1  321 651-Cl 

0.62C177 

0.511P9C0 

00 

3.1022500  00 

0. 5659600-01 

C. 2321350-01 

-0.6954790 

10 

0.1324649-01 

0.619139 

0  .5219320 

00 

0 . 104 2500  03 

0.5513)00-01 

0.21*4180-01 

-9.6491770 

00 

0.1236451-01 

0.60C801 

0.5269 J»1 

00 

0.1C575CD  90 

0.5436380-01 

0.2209990-91 

-9.65662CD 

00 

0.1250621-01 

0.600213 

0.5369210 

oc 

0.10725CO  00 

0.S30363O-01 

0.7191950-01 

-0.6*01990 

00 

0.1 1R1089-01 

C. 584884 

0.5419270 

00 

0.1082500  00 

0.5234370-01 

0.2123)70-01 

-0.6265)10 

00 

0.1193311-01 

0.584367 

0.5514400 

00 

0. 1 1025C0  03 

0.51132r»n-01 

0.7925729-01 

-0.5439670 

00 

0.1131 2nQ-01 

0.57C6C2 

0.5569460 

00 

0.1112500  00 

0.5C5017O-01 

0.2045070-01 

-9.599643D 

00 

0.1142199-01 

0.570133 

0. 56695«>0 

00 

0.1132500  CO 

0.4938700-01 

0. 196O030-01 

-0.5713850 

00 

0. 1C88280-01 

0.557996 

0.571965P 

00 

1.1142500  00 

C. 4 849601-01 

0.1974243-01 

-9.5754460 

90 

0.1096400-01 

0.557526 

0.5319770 

JO 

9.1162SC0  00 

9.4777700-01 

C.1P93060-91 

-9.5492200 

00 

0.10469 40-Cl 

9.546112 
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0.58698*0 

00 

o.imsoo 

00 

0.472408D-01 

0.1907220-01 

-3 .5531670 

00 

0.1053580-01 

0.545672 

0.5969960 

00 

0.1192500 

00 

0.4628280-01 

0.1831393-01 

-0.3286860 

00 

0.1006950-01 

0.535011 

0.6023330 

03 

9.1202500 

00 

9.45T8450-C1 

0.1844540-01 

-3.5323350 

00 

0.1013910-01 

0.534600 

0.6123150 

00 

0.1222500 

00 

0.4488910-01 

0.1773490-Ct 

-3.5095730 

00 

0.9705520-02 

0.524613 

0.6170210 

00 

0. 123250D 

0" 

0.4442370-01 

0.1785720-01 

-9.5129550 

00 

0.9769949-02 

0.524228 

0.  62703*0 

30 

0 • 1352500 

00 

C. 4358320-01 

0.1718090-01 

-3 .4917120 

00 

0.9365140-02 

0.514836 

0.63234C0 

03 

0. 1262500 

00 

0.4314680-01 

0.1730330-01 

-O.49405C3 

00 

0.94751 19-02 

C. 514473 

3  .6*20570 

00 

0.1282500 

0-3 

0.423550O-01 

0.1667249-01 

-0.4749769 

00 

0.90456 10-C2 

0.505606 

0.647959D 

03 

0.1292500 

00 

0.4194420-01 

0 • 1677970-0 1 

-0.47T8 700 

10 

0.9101779-02 

0.505263 

0.6570710 

30 

0.131 25CD 

00 

0.4119600-01 

0.1618220-01 

-3.4591260 

30 

0.87446"0-02 

0.4=6«6l 

0.6623780 

CO 

0.1322500 

00 

0.4383310-01 

0.1628140-01 

-0.4618910 

30 

0.8797350-02 

0.406537 

C  .672)930 

00 

3 • 13425C0 

00 

0.43  39770-01 

0.1575110-01 

-0.4453340 

90 

0.8481443-02 

0.4P8956 

0.6770960 

00 

0.1357500 

00 

0.3972990-01 

0.1582510-01 

-0.4472660 

00 

0.0 518809-02 

C. 488611 

0.6871C9D 

00 

0.1372500 

30 

0.3935610-01 

0.15  303  70-0 1 

-1.4311380 

00 

0.P21  1059-02 

0.481107 

0.6921  150 

00 

3.13825C0 

00 

0.3870690-01 

0. 1517580-01 

-0.4310210 

00 

0.8247490-02 

0.480853 

C. 7021280 

03 

0.1432500 

00 

0.3936570-01 

0. 1437580-01 

-0.4176379 

00 

C. 7953910-02 

0.47*697 

0.7071343 

30 

3.1412500 

00 

0.3773340-01 

0.1494560-01 

-0.4194560 

30 

0.79P" i 23-02 

0.473376 

0.7171460 

00 

0.1422500 

00 

0.3712180-01 

0.I446670-CI 

-0.434769O 

00 

0.7709190-02 

0.466495 

0. 722153D 

00 

0. 14425C0 

03 

0.3683530-01 

0.1453410-31 

-0. 4065490 

30 

0.7743293-02 

0.466106 

0.7321650 

03 

0.1462500 

00 

0.3622350-01 

0. 1407490—01 

-0.3925400 

00 

0.7476470-02 

0.459565 

0.7371710 

00 

9.14T25C0 

03 

0.3591790-01 

0.1411990-01 

-7.3942539 

10 

0.7509990-02 

".459267 

0. 7471840 

03 

0.1492500 

00 

0.3535840-01 

0.1369510-01 

-3.3808710 

00 

0.7254220-02 

0.452890 

0.7521900 

03 

0. 15C2500 

00 

0.3536890-01 

0.11761 80-01 

-3.3825200 

10 

0.72856  20-02 

0.457603 

0.7622730 

03 

0.15225CD 

03 

0.3453243-01 

0. 1333610-01 

-0.3697130 

00 

0.7041793-02 

0.446451 

0. 7672390 

00 

0.1532500 

on 

0.3425490-01 

0.1339860-01 

-3.3713380 

00 

0. 7072070-02 

0.446175 

0.7772220 

30 

0.1552500 

00 

0.3373980-01 

0.1299390-01 

-1.350*430 

00 

0.6838470-02 

0.440733 

0.7822280 

00 

3.1562500 

03 

3.3347360-01 

0.1 3049  30-0 1 

-0.36O57PD 

70 

0.6867710-02 

0.439966 

0.79224m 

00 

0.15825OD 

C3 

0.3297830-01 

0.1265640-01 

-0.3498110 

00 

0.6643593-02 

0.434218 

0.7972470 

00 

0.1592500 

00 

0.3272250-01 

0.1271310-01 

-0.3502960 

00 

0.6671870-02 

0.433960 

0.8C7259D 

00 

0.161Z5C0 

03 

0 .3  22291 0-01 

0.1265940-01 

-3.3487C00 

00 

0.6641473-02 

0.432078 

0.3272340 

03 

0.1652500 

On 

0.3132110-01 

0.1188130-01 

-0.3254270 

00 

0.6198720-02 

0.421139 

0.8372970 

00 

0 .1672500 

00 

0.3086250-01 

0.1196603-01 

-0.7276740 

00 

0.62411913-0? 

0. 4?9«37 

0.8573220 

00 

0.171Z5C0 

00 

0.3300960-01 

0.1 132500-0 1 

-0.3296650 

00 

0.5878040-02 

0.4106P7 

0. 8673340 

C3 

0.1732500 

00 

0. 2957880-01 

0.1138640-01 

-0.31028CO 

00 

0.5909720-02 

0.410386 

0.8873590 

00 

0.1772500 

CO 

0.2877990-01 

0.1077R90-01 

-0.2923329 

30 

0.55688  30-02 

0.400692 

0.8973720 

03 

0.1797500 

00 

0.283764  0-01 

0.1083B9D-01 

-0.2939450 

00 

0.5598590-02 

0 .4"C  4T6 

0.917397O 

00 

0.1832500 

00 

0. 2762620-01 

0.1326530-01 

-3.277M20 

00 

0.5279313-02 

0.39] 164 

0.9274390 

00 

0.1852500 

oc 

0.2724750-01 

0.1032360-01 

-0.2786970 

00 

0.53C81 90-02 

0.390092 

0.9474340 

00 

0.1892500 

03 

3.2654130-01 

0.9781580-02 

-0.262«S40 

oo 

0.50CB523-02 

0.382064 

0.957447D 

00 

0.1912500 

00 

C. 2618490-01 

0.9838410-02 

-0.264438D 

00 

0.5036599-02 

0.381805 

0.977472D 

CO 

O.195ZSC0 

00 

0.2551980-01 

0.9125110-02 

-3.2496390 

00 

0.4754720-02 

0.373354 

0.9874340 

CO 

0.197250D 

00 

0.2518260-01 

0.93  906  CO-02 

-0.2515740 

00 

0. 4782060-02 

0.3731C6 

0.1033300 

01 

0.1997500 

00 

0.2478600-01 

0. "90 5430-02 

-1.240388D 

00 

0.457844D-P2 

0.367385 

* 
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THREE-DIMENSIONAL  BOUNDARY  LAYER  PROGRAM 
FOR 

LAMINAR  OR  TURBULENT  FLOW 
WITH 

BINARY  GAS  INJECTION 
DEVELOPED  BY 
M.C.  FRIEOERS  ' 

AEROSPACE  ENGINEERING  DEPARTMENT 
VIRGINIA  POLYTECHNIC  INSTITUTE  AND  STATE  UNIVERSITY 
BLACKSBURG,  VA.  24060 


INPUT  DATA  CAROS  ARE  AS  FOLLOWS! 


LEWIS, 

ADAMS  • 

GILLEY, 

BLUNT,  LAMINAR 

ARGON  INJECTION 

CARO  001 

IE 

13 

COL 

50-52 

051 

CARO  302 

INJCT 

13 

COL 

50-52 

001 

CARD  003 

KADETA 

13 

COL 

50-52 

000 

CARD  004 

KEN02 

13 

COL 

50-52 

001 

CARD  005 

KCNSET 

13 

COL 

50-52 

000 

CARO  006 

KPRT 

13 

COL 

50-52 

003 

CARD  007 

KTRANS 

13 

COL 

50-52 

000 

CARD  0J8 

LAMTRB 

13 

COL 

50-52 

001 

CARD  004 

LPRT 

13 

COL 

50-52 

001 

CARD  CIO 

NIT1 

13 

COL 

50-52 

005 

CARO  Oil 

NIT2 

13 

COL 

50-52 

010 

CARD  012 

NIT3 

13 

COL 

50-52 

020 

CARD  013 

NCI  NJ 

13 

COL 

50-52 

000 

CARD  014 

NOSE 

AS 

COL 

50-54 

BLUNT 

CARD  015 

NSOIVE 

13 

COL 

50-52 

003 

CARD  016 

KPLOT 

413 

COL 

50-61 

001000000000 

CARD  017 

KPRFL 

413 

COL 

50-61 

001000000000 

CARD  GIB 

IPLOT 

413 

COL 

50-61 

003000000000 

CARO  C19 

LPRFL 

413 

COL 

50-61 

001000000000 

CARD  020 

ACTE  ST 

E  14,6 

COL 

50-63 

0.001 

CARD  C2 1 

AKSTAR 

E  14,6 

COL 

50-63 

0.435 

CARD  022 

ALAHDA 

E  14.6 

COL 

50-63 

0.09 

CARD  023 

LEWTRB 

E  14.6 

COL 

50-63 

1.0 

CARD  024 

ALPHA 

E  14.6 

COL 

50-63 

0.0 

CARD  025 

ASTAR 

ri4.6 

COL 

50-63 

26.0 

CARD  026 

COOL 

A3 

COL 

50-52 

ablation 

CARO  027 

CKALL 

F  14,6 

COL 

50-63 

0.0264 

CARO  G28 

CPI 

FS.3 

COL 

50-54 

1.0 

CARD  029 

CONV 

E  14.6 

COL 

50-63 

0.01 

CARD  030 

DISK 

A2 

COL 

50-51 

NJ 

CARD  031 

DXINVS 

E  14.6 

COL 

50-63 

0.04 

CARD  032 

OXMAX 

E  14.6 

COL 

50-63 

0.10 

CARD  033 

0X1 

F5.3 

COL 

50-54 

0.02 

CARD  034 

EDYLAW 

A3 

COL 

50-52 

RE1CHARDT 

CARD  035 

ETAFAC 

E  14.6 

COL 

50-63 

1.04 

CARO  036 

etainf 

f  14.6 

COL 

50-63 

12.0 

CARD  037 

CAS2 

A3 

CCL 

50-52 

ARGON 

CARD  038 

PL. IT 

A2 

COL 

50-51 

NO 

CARD  039 

PKL 

E14.6 

COL 

50-63 

0.7 
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CARD  040 

PRT 

AS 

CARO  041 

PROP 

A4 

CARO  042 

RTW 

E  14.6 

CARO  043 

TFS 

E  14.6 

CARD  044 

TSTAG 

E 14  .6 

CARO  045 

VALUE 

E  14.6 

CARO  C46 

XBAR 

E14.6 

CARO  047 

RNOSE 

E  14.6 

0.0 

0.01 

0.42614 

COL 

50-34 

ROTTA 

CCL 

50-53 

PINF 

COL 

50-63 

0.06582 

COL 

50-63 

290.0 

COL 

50-63 

8204.0 

COL 

50-63 

0.00135 

COL 

50-63 

2.09 

COL 

50-63 

0. 083333 

FREE  STREAM,  STAGNATION,  AND  VEHICLE  OATAl 


PST AG  -  0.1644990  04  PSIA 
TSTAG  «  0.8204000  04  DtS.R 
HSTAG  >  0.590786D  08  FT*«2/SEC**2 
PINF  ■  0.135O0O0-C2  PSIA 
R H J I f!F »  0.3902640-06  SLUGS/FT**3 
T INF  ■  0.2900300  03  OEG.R 
UlNF  •  0.1067620  05  FT/SEC 
HINF  »  0.1320000  02 
CP/CV  ■  0.1400000  01 

R  »  0.1717670  04  FT **2/SEC**2/0EG.R 
TW/TO  »  0.6582300-01 
ALPHA  «  0.0  OEG. 

THETAC-  0.750000D  01  DEG. 


POINTS  AT  WHICH  A  SOLUTION  IS  TO  BE  OBTAINED! 
I  XSTAIII 

1  C.O 

2  0,010300 

3  0.061934 

4  0.425140 


t 

1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 


BLUNT  CONE  EDGE  DATA 


ZB(  I  > 

0.0 

0.4790410-04 
0.1802170-03 
0.4013420-33 
0.7121500-03 
0.1113830-32 
0. 1609140-02 
0.2196310-02 
0.2882I7C-J2 
0.3666940-02 
0.45521 70-02 


xBin 

o.o 

0.2825730-02 

0.5481510-02 

0.8181920-02 

0.109C23D-01 

0.1364010-01 

0.164C290-01 

0.1917470-01 

0.2198O8D-01 

0.2431310-01 

0.2767100-01 


RBI  1 1 

0.0 

0.2825190-02 
0.5477550-02 
0*8168780-02 
0.1087130-01 
0.1357930-01 
0.1629720-01 
0.1930600-01 
0.2172680-01 
0.24448 1D-0 1 
0.2716530-01 


PEBII) 

0.4370840  02 
0.4365250  02 
0.4348480  02 
0.4320540  02 
0.4281460  02 
0.4231310  02 
0.4170650  02 
0.4098080  02 
0.4015630  02 
0.3922770  02 
0.3819540  02 


UEB(I) 

0.0 

0.1899590  03 
0.3801150  03 
0.57071BD  03 
0.7619630  03 
0.9540300  03 
0.114566D  04 
0.134144D  04 
0.153630D  04 
0.1732530  04 
0.1930700  04 


TEBMI 

0.8204000  04 
0.8201000  04 
0.8191960  04 
0.8176910  04 
0.8155710  04 
0.81283C0  04 
C.6094S40  04 
0.8354340  04 
0.B007700  04 
0.7954350  04 
0.7893980  04 


XHBIII 

0.0 

0.4277520-01 
0.8564190-01 
0.1287040  00 
0.1720560  00 
C. 2157880  00 
0.2596670  00 
0.3348050  00 
0.3500970  OO 
0.396 1 37D  00 
0.4431320  00 
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12 

0.5542410-02 

0.3C56400-01 

0.2988330-01 

0.3706200 

02 

0.2130960 

04 

0.7826330 

04 

0.4912060 

00 

13 

0.6643440-02 

0.3350030-01 

0.3260520-01 

0.3583220 

02 

0.2333230 

04 

0.7751230 

04 

0. 5404  270 

00 

14 

0.7858660-02 

0.3648140-01 

0.3532720-01 

0.3451230 

02 

0.2537310 

04 

0.7669560 

04 

0.59GP5B0 

09 

15 

0.9193850-02 

0.3951380-01 

■J.380496D-01 

0.3310190 

02 

0.2744200 

04 

0.7577680 

C4 

0.6428560 

00 

16 

0.1C6562D-01 

0.4260540-01 

0.4U7734D-01 

0.3I6233D 

02 

0.2951630 

04 

0.74T942D 

04 

0.6959  750 

09 

17 

0. 1225280-01 

0.4576270-01 

0. 4349700-01 

0.3006320 

02 

0.3162770 

04 

0.7372050 

04 

0.7511720 

00 

18 

0.1399020-01 

0.4U99UC0-01 

0.4621650-01 

0.2842040 

02 

0.3378590 

04 

0.7254640 

04 

0.eC8B9SD 

oc 

19 

0.1 588230-01 

0.52J037U-01 

0. 4893670-01 

0.2672800 

02 

0.3596060 

04 

0.7128490 

04 

0.8685490 

00 

20 

0. 1794170-01 

0.5571530-01 

0.5165620-01 

0.2498310 

02 

0.3816950 

04 

0.69923CD 

04 

0.93C8  340 

00 

21 

0. 2013050-01 

0.5523390-01 

0.5437040-01 

0.2314420 

02 

0.4047930 

04 

0.6941210 

04 

0.9980C43 

03 

22 

0.2197480-01 

0.619339D-01 

0.563876D-01 

0.2175880 

02 

0.4221810 

04 

0.6721620 

04 

O.I05C090 

01 

S  -  0.0  S/REF-  0.0  l  rn  0.0  Z/REF-  0.0 

R  ■  0.0  R/REFa  0.0  OX  ■  0.200000-01  NIT  ■  10  PHI  ■  0.0  OEG. 

XI  *  0.0  OXI  -  0.0  OXDXt-  0.0  CHALL*  0.2840000-01 


DIMENSIONAL  EDGE  PROPERTIES 

PE  -  0.4370840  02  TE  -  0.8204000  04  UE  -  0.0  VE  -  0.0  HACHE  ■  0.0 

DPEOXa  0.0  OTEOXa  0.0  OUEDXa  0.0  DVEDX*  0.0  RHOE  ■  0.3101700-05 

OPEOWa  o.O  OTEOMa  0.0  DUECWa  0.0  DVEOHa  0.0  RHOEMUE"  0.8127290-11 

LOCAL  EDGE  REVNOLDS  NUMBER  aQ.O 


NCN01MENS10NAL  BCUNOARY  LAVERS  PARAMETERS 

CFXINFa  0.0  CFXEDGa  0.0  CFWINFa  0.0  CFWEOGa  0.0 

CHEOGE*  0.0  CHtNF  a  0.2234660  00  STEDGE-  0.0  STINF  ■  0.1469000  00 

QM  — C. 7209230-01  CHIMAX-  0.0 


DIMENSIONAL  BOUNDARY  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION3  0.0  PSF  OELT A*t X)  >-0.2409690-03  THETA! X )  a  0.1301980-02 

TRANSVERSE  SKIN  FRICTION  -  0.0  PSF  DELTAMPHII-  0.264579D-01  THETA! PHD-  0.0 

hall  HEAT  TRANSFER  RATE  >-0.44028SD  02  BTU  OELTA  !FT>  a  0. 6394360-02 


ETA 

V 

F 

FN 

G 

GN 

H 

KN 

C 

CN 

V 

0.9 

0.0 

0.0 

0.285576 

0.0 

0.0 

0.051862 

0.188734 

2.155593 

-1.019725 

0.1140  00 

0.169349 

0.3350-04 

0.047577 

0.3078C5 

0.0 

0.0 

0.083501 

0.206249 

1.995716 

-0.946780 

0.1100  00 

0.333782 

0.8780-04 

0.102991 

0.330713 

0.0 

0.9 

0.121C43 

0.226995 

1.844324 

-0.812838 

0.9710-01 

0.521368 

0.1690-03 

0.167191 

0.353089 

0.0 

0.0 

0.165802 

0.250266 

1.702420 

-0.705930 

0.7180-01 

0.724260 

0.2840-03 

0.241019 

0.373546 

0.0 

0.0 

0.219062 

0.274208 

1.570068 

-0.608266 

0.3C40-01 

0.9437C9 

9.4430-03 

0.324980 

0.389804 

0.0 

0.0 

0.282005 

0.299189 

1.446150 

-0.514466  -0.3160-01 

1.181364 

0.656D-03 

0.418737 

0.3971C8 

0.3 

0.0 

0.355938 

0.322202 

1.336638 

-0.410168  -0.1200  00 

1.437783 

0.9390-03 

0.520278 

0.389691 

0.0 

0.0 

0.441038 

0.337844 

1.244816 

-0.  30°023  -0.24C0  00 

1.715461 

0.1310-02 

0.625383 

C.  362507 

0.0 

c.o 

0.535707 

0.339752 

1.172190 

-0.219969  -0.4C0C  00 

2.015751 

0.1780-02 

3.727586 

0.313911 

0.0 

0.0 

0.635869 

0.322243 

1.117600 

-0.150265  -0.6C30  00 

2.340629 

0.2)60-02 

0.819170 

0.247901 

0.0 

0.0 

0.734912 

0.283002 

l.C 77695 

-0. 101107  -0.8550  00 

2.691973 

0.3070-02 

0.893129 

0.174196 

0.0 

c.o 

0.824646 

0.225290 

1.048709 

-0.067597  -0.1160  01 

3.371  767 

0.3910-02 

0. 945490 

Q.105o?2 

0.0 

0.0 

0.8  77364 

0.153075 

1.028026 

-0.043481  -0.1510  01 
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3.483310 

0.4870-02 

0.976902 

0.053239 

0.0 

0.0 

3.927572 

0. 3960-02 

0.992235 

0.021354 

0.0 

0.0 

4.498411 

0.7160-02 

0.99B043 

0.006473 

0.0 

0.0 

4.928486 

0.8460-02 

0.999656 

0.001392 

0.0 

0.0 

5.491000 

0.9830-02 

0.999962 

0.C03195 

0.0 

0.0 

6.399414 

0.1140-01 

0.999998 

C. 03 0016 

0.0 

0.0 

6.757475 

0.1310-01 

1 <003000 

C.C030G1 

0.0 

0.0 

7.469234 

0. 1490-01 

l.OOCdJC 

O.OOCOUO 

0.0 

0.0 

8.239373 

0.1630-31 

l.OOOJOC 

0.030000 

0.0 

0.0 

9.071730 

0. 189C-01 

1.  COO  300 

o.coocoo 

3.0 

0.0 

9.972332 

0.2120-01 

1  .OCGJOC 

c.o 

0.0 

0.0 

10.946423 

0 • 2360- J l 

l.OCCOJC 

o.coocoo 

0.0 

0.0 

12.003303 

0.2630-01 

1.C0030C 

e.eocceo 

0.0 

0.0 

0.948527 

0.094760 

1.014223 

-0.025390  -0.1900  01 

0.978711 

0.046744 

1.006111 

-0.012711  -0.2340  01 

0.993062 

0.018188 

1.002127 

-0.005190  -0.2820  01 

0.998316 

0.095309 

1.000571 

-0.001645  -0.3340 

01 

0.999716 

0.CC109Z 

1.000111 

-0.00C383  -0.3900  01 

0.999969 

0.000147 

1.000015 

-C.O0C061  -0.4510 

01 

0.999998 

0.00G012 

1.00C001 

-O.OOC3C6  -0.5170 

01 

1  .003000 

0.000001 

1.000000 

-o. OC3COO  -o.sseo 

01 

1.000000 

0.000000 

1.000000 

-O.OCQOOO  -0.665U 

01 

1.000030 

0.000000 

1.000000 

-0.300000  -0.7480 

01 

1.000030 

-0.000000 

l.OOtOOO 

-0.000000  -0.838D 

01 

1.000000 

0.000300 

1  .000300 

-0.000300  -0.9360 

01 

1.000000 

0.000300 

1.00C030 

0.900000  -0.1040 

02 

~0 

OJ 


ETA  Y/L  ROROE 


0.0 

0.0 

15.67864 

0.163349 

0.7880-04 

9.77804 

0.333762 

0.2070-03 

6.82766 

0.521363 

0,3970-03 

5.CU315 

0.724269 

0.6660-03 

3.94187 

0.9437C9 

0.1040-02 

3.  12509 

1.181064 

0.1540-32 

2.52562 

1.437783 

0.221D-02 

2.06623 

1.715461 

0.3370-32 

1.75283 

2.315791 

0.4180-02 

1.53333 

2.343629 

0.5550-02 

1.31990 

2.691 973 

0.7210-02 

1.16957 

3.371987 

0.9190-02 

1.102C9 

3.483310 

0.1150-01 

1.C4629 

3.927572 

0 . 1430-01 

1.C1921 

4.408411 

0.  1680-01 

1.CC6C9 

4.928464 

C.  1990-31 

1.00144 

5.491303 

0.2320-01 

1.00C23 

6.399414 

0.2680-01 

1 .03002 

6.757475 

0.3070-01 

l.OOCOO 

7.469254 

0.3500-01 

l.OOOCC 

8.239373 

0.3950-01 

1.03C3C 

9.071733 

0.4*50-01 

1.3C30C 

9.972332 

0.4980-01 

1.C300C 

10.946423 

0.5560-01 

l.COCCC 

12.C03303 

0. 6180-01 

l.CCJCO 

XHU  E*  CHI 

0.36030-06  0.0  0.0 
0. 53480-06  0.0  0.0 
0. 70780-06  0.0  0.0 
0. 87760*06  0.0  0.0 
0. 10460-05  0.0  0.0 
0. 12130-03  0.0  0.0 
0. 13840-05  0.0  0.0 
0.15630-05  0.0  0.0 
0.17520-05  0.0  0.0 
0.19480-05  0.0  0.0 
0.21390-05  0.0  0.0 
0.23 1C0-C5  0.0  0.0 
0.24440-05  0.0  0.0 
0.2535O-C5  0.0  0.0 
0.25d70-05  0.0  0.0 
0. 26100-05  0.0  0.0 
0.26180-05  0.0  0.0 
0.26200-05  0.0  0.0 
0.262U1-05  0.0  0.0 
0.26200-05  0.0  0.0 
0.26200-05  0.0  0.0 
0.26200-05  0.0  0.0 
0.2620r-05  0.0  0.0 
0. 26200-05  0.0  0.0 
0.26200-05  0.0  0.0 
0.2620C-05  0.0  0.0 


LEI  •  LET  PRL  PR T  SP  HT 


1.463182 
1.337113 
1.285595 
1.273536 
1.274224 
1.288988 
1.305630 
4 .316463 
1.316604 
1.305956 
1.289044 
1.271884 
1.258520 
1.249992 
1.245448 
1.243470 
1.242807 
1.242650 
1.242628 
1.242626 
1.242626 
1.242626 
1.242626 
1.242626 
1.242626 
1.242626 


1.000000  0.730251 
1.000000  0.734211 
1.000000  0.742135 
1.000000  0.750974 
l.COJGOO  0.755051 
l.OOOCOO  0.761171 
1.000000  0.766850 
1.000000  0.771613 
1.00300C  C.  775093 
1. 000000  0.777209 
1.00)000  0.778246 
1.000300  0.778707 
l. 000000  0.7  79002 
1.00C3CC  0.779276 
1.000300  0.779533 
1.0C3000  0.779645 
l. 000000  0.779712 
1.000000  0.779736 
1.0  0  0  0  0  0  0.7  7  9  742 
1.000000  0.779743 
1.000000  0.779743 
1.000000  0.779743 
l.OOGOCC  0.779743 
1.030000  0.779743 
l.OOJOOO  0.779743 
1.003000  0.779743 


0.9CCC00 

0.56510  04 

0.9C3C30 

0.57750 

04 

0.9C0C00 

0.60270 

04 

C.5COCOO 

0.6325D 

C4 

0.900000 

0.64740 

04 

C.9C0C30 

0.67030 

C4 

0.9CCCC0 

0.69270 

04 

0.900C30 

0.71260 

04 

C.900C00 

0 .72820 

04 

C.900C00 

0.73330 

04 

0.9C9C00 

0.74530 

C4 

0.9I3C00 

0.74960 

04 

0.900000 

0.753C0 

04 

0.93CC90 

0.73590 

C4 

0.90C000 

0.75600 

04 

0.9C0CC0 

0.75430 

04 

0.900000 

0.759eO 

04 

0. 900C00 

0.760CH 

04 

0.900000 

0.7531D 

04 

0.900000 

0.7601D 

04 

0.900C30 

0.76310 

04 

C. 900000 

0.76310 

04 

0.900C30 

0.763  10 

C  4 

0.503C00 

0.76010 

04 

0.900C00 

0.769  ID 

04 

0.9C0C00 

0.7601D 

04 

GTA  Y/L  Z  ZN  TEHP 

0.0  0.0  0.873266  0. 620380  0.5399870  03 
0.160349  0.7880-04  0.876850  0.024245  C. 8684240  C3 
0.333782  0.2070-03  0.881379  0.027791  C.1242C9D  04 
0.521368  0.3970-03  0.886901  0.030952  0.1665750  C4 
0.724263  0.6630-03  0.893488  0.033878  0.2144010  C4 
0.943709  0.1040-02  0.9C1238  0.036649  C. 2698470  04 
1.181J64  0.1540-02  0.910249  0.039136  0.332495D  C4 
1.437783  0. 2210-02  ■  0.920572  0.G41050  0.4020250  C4 
1.715461  0.3070-02  0.932135  0.041912  0.4769420  04 


T/TE  IN  CP/CV  RHQ 

0 .6582000-01  0.2451900  00  1.415171  0.4863040-04 
C. 1058540  90  0.2554830  00  1.403244  0.3332850-C4 
0.1514000  00  0.2688990  00  1.380688  0.2117740-04 
0.2030410  00  0.2817440  00  1.357058  0.1576640-04 
0.2613370  00  0.2965580  00  1.346905  0.1222660-04 
0.3289210  00  0.3151520  00  1.332090  0.969310D-OS 
0.4052840  00  0.3267550  00  1.3LB994  0.7846760-05 
0.4900350  00  0.3310100  00  1.308512  0.647085D-05 
0.5813530  00  0.3233020  00  1.301186  0.5436740-05 
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2.015791 

0.6180-02 

0.944676 

0.041084 

0.5541510 

06 

2.360629 

0.5550-02 

0.957606 

0. 0379 56 

0.6288930 

04 

2.691973 

0.  7210-02 

0.970036 

0.032308 

0. 6953870 

04 

3.071987 

0.919D-32 

3.980904 

0.3246R8 

0.7403340 

04 

3.683J10 

0.1150-31 

3.989315 

0.016466 

0.7349130 

04 

3.927572 

0.1400-01 

0.994911 

0.0093CO 

0.8060640 

04 

6.4CB611 

0. 163C-01 

0.996C13 

0.0043G1 

0.8158820 

C4 

4.928686 

0.199D-01 

3.999393 

0.CC1563 

9.8193590 

04 

5.491JL3 

0.2320-01 

0.999364 

0.CGG423 

0.8202390 

C4 

6.399414 

0.2680-01 

0.99998C 

C. COOL  79 

0.8203850 

C4 

6.757475 

0.3370-31 

0.99C999 

0.C00CC9 

0.6203990 

04 

7.469234 

0.3530-01 

l.OCOCOC 

0.00 OGOl 

G.8?04COn 

04 

8.239073 

0.3950-01 

1.303C0C 

0.00 COCO 

0.8204000 

04 

9.071739 

0.4450-01 

l.JCOOCC 

O.OOCC 00 

0. 8204100 

04 

9.972332 

0.493D-01 

1.330003 

O.CCCC'03 

0.8204000 

04 

10.946423 

0.5560-01 

1.00909C 

C.OOOCOO 

0.82L4Q0C 

C4 

12.0C0933 

0.6180-01 

I.OOlCOC 

0.0 

0.B2C400D 

04 

0.6754650 

00 

0.2994850  00 

1.296928 

0. 4662870-0S 

0.7665690 

00 

0.2579450  00 

1.294947 

0.40  93  92  0—05 

0.8476190 

00 

0.2C16670  00 

1.294103 

0.3689700-05 

0.9121570 

00 

0.1390660  00 

1.293530 

0.3418350-05 

0.9567440 

00 

0.8179810-01 

1.292959 

0.3251460-05 

0.9R25250 

00 

0.3948700-01 

1.292474 

3-3161290-05 

0.9944920 

00 

0.1494630-31 

1.292168 

0.3120530-05 

0.9987310 

00 

0.4189900-02 

1.292G22 

0. 3L  06 160-05 

C.999BO40 

00 

0.8067670-03 

1.291970 

3.3102420-05 

0.9999820 

00 

0.9627580-04 

1.291957 

0. 3101770-05 

0.9999990 

00 

0. 6249110-05 

1.291955 

0. 3101710-05 

O.IOCOOUO 

01 

0.2130630-06 

1.291955 

0.3101 7CD-05 

C.  1000000 

01 

0.6032930-08 

1.291955 

0.3t017Cr-05 

O.ICOOOD 

01 

0. 81 245CO- 10 

1.291955 

3.  3101  7C('-05 

0.1000000 

01 

-.4862780-13 

1.291955 

0.3101700-05 

0.1000000 

01 

0. 27  7S56D- 16 

1.291955 

0.3101700-05 

0.1G00000 

01 

0.1332270-14 

1.291955 

0.3101 700-05 

&  ■  0. 1000030-01  S/REF*  0.1200000  00 
II  ■  0.9976020-02  R/REF*  0.1197130  00 
XI  -  0.1390300-16  DXI  -  0*1 390300-16 


-.3  DIMENSIONAL  eoce  properties 

4A. 

PE  -  0.6295660  02  TE  »  0.8163620  06 
DPEOX—0. 2706190  15  OTEOX—Oi  1669880  17 
DPeOW*  0.0  DTEOW*  0.0 

LOCAL  EOGE  REYNOLDS  NUMBER  -0.8199730  01 


2  •  0.5992630-03 

OX  ■  0.100000-C1 

0X0X1*  0.1799250  13 

2/REF*  0.7191420-02 

NIT  *  4 

CHALL*  0.2840000-01 

PHI  * 

0.0  DEG. 

UE  -  0.6985230  03 
OUEOX*  0.1264630  IS 
OUECW*  0.0 

VE  -  0.0 

DVEOX-  0.0 

OVEDM-  0.0 

MACHE  ■ 
.  RHOE  ■ 
rhoemue* 

0.1576560  00 
0.3063490-05 
0.7994900—11 

N0ND1MENSI0NAL  BOUNDARY  LAYERS  PARAMETERS 


CFXINF-  0.3566510-01 
CHEDGE*  0.5089630  00 
QM  —0.8630910-01 


CFXEDG*  0.1060750  01 
CHINF  •  0.2613920  00 
CHl MAX—  0.6660380  00 


CFMtNF-  0.0 
STEOGE-  0.3366070  00 


CFMEOG*  0.0 

ST INF  -  0. 171751D  00 


DIMENSIONAL  BOUNDARY  LAYER  PARAMETERS 


LCNGITUOINAL  SKIN  FRICTION*  0.7927920  CO  PSF 
TRANSVERSE  SKIN  FRICTICN  -  G.9  PSF 
MALL  HEAT  TRANSFER  RATE  —0.5168960  02  BTU 


DELTAMX)  — 0.6261S5D-03 
OELT  A*IPHI )■  0.2631760-01 
OELTA  (FTI  -  0.6096860-02 


THETA! XI  -  0.1156520-02 
thetaiphd*  o.o 


ETA 


Y 


F  FN  G 


GN  H 


HN  C 


CN  V 


0.0 

0.0 

0.0 

0.495988 

0.0 

0.160349 

0.3400-04 

0.081564 

0.519049 

0.0 

0.333782 

0.9140-04 

0.172732 

0.528041 

0.0 

0.521368 

0.1790-03 

0.271452 

0.520361 

0.0 

3.724260 

0.3050-03 

0.3749  30 

0.496271 

3.0 

0.0 

0.0 

0.0 

0.0 

0.0 


0.051622 

0.088236 

0.132300 

0.185636 

0.268806 


0.216316 

0.260506 

0.26T987 

0.297660 

0.326898 


2.165836 

1.975085 

1.806207 

1.650873 

1.508866 


•1.363659 
■1.0655  75 
■0.898725 
■0.76  Cl  90 
■0.66  5621 


0.112D  00 
0.1000  00 
0.6000-01 
0. 1650-01 
0.1290  00 


AEDC-TR-75-55 


-J 


0.943709 

0.4810-03 

0.479831 

0.456789 

3.0 

1.181064 

0.7190-03 

0.582204 

0.404071 

0.0 

1.437768 

0.1030-02 

0.678132 

0.342739 

0.0 

1.715461 

0.144C-02 

0.764137 

0.277952 

0.9 

2.015791 

*  0.1950-02 

0.837719 

0.213920 

0.0 

2.340629 

0.2580-02 

0.897031 

0.153763 

0.0 

2.691473 

0.3320-02 

0.941165 

0. 10C693 

0.0 

3.071937 

0. 4160-02 

3.97C6C9 

0.056138 

0.0 

3.463010 

0. 5150-02 

0.987612 

C. 028511 

0.0 

3.927572 

0. 6230-02 

3.995779 

0.011383 

0.0 

4.4C64 1 1 

0.7410-02 

3.998898 

0.003521 

0.0 

4.926465 

0.8690-02 

0.999794 

O.CC0795 

0.0 

5.491C00 

0.101C-01 

0.999975 

0.00G121 

0.0 

6.099414 

0.1160-01 

0.999996 

0.030C11 

0.0 

6.757475 

0.1320-01 

l.acroco 

O.COOOOl 

3.0 

7. 459234 

0.1500-01 

l.JOOCCC 

o.occcco 

0.0 

8.239 373 

0. 1690-01 

l.JCCOCC 

0.  COuGOO 

0.0 

9.071730 

0.1390-01 

1 .3C0C0C 

-0.CC3C00 

0.0 

9.972132 

0. 2120-01 

l.CGUGOC 

-O.GOCCOO 

0.0 

10.946423 

0. 2360-01 

l.OCOCOO 

—0.  0  JCGOO 

0.0 

12.0GC3CO 

0.2620-01 

1.33COJC 

-O.GOGCCO 

0.0 

ETA 

Y/L 

RUROE 

XMU 

0.0 

0.0 

15.68852 

0. 36C30-06 

0.0 

0.160349 

0. 809D-04 

9.22995 

G. 55840-06 

0.0 

0.333782 

0.2150-03 

6.25632 

C. 75340-06 

0.0 

.0.521368 

0.4210-03 

4.57453 

0.94160— 06 

0.0 

0.724260 

0.7180-03 

3.49858 

0.11260-05 

0.0 

0.943709 

0 . 1 13C-02 

2.75245 

0. 13  ICO- 05 

0.0 

1.181064 

0.1690-02 

2.22273 

0.149BC-95 

0.0 

1.437783 

0.2430-02 

1.83953 

0.16930-05 

0.0 

1.715461 

0.3390-02 

1.56125 

0.18920-05 

0.0 

2.315791 

0.4590-02 

1.30C92 

0.20260-05 

0.0 

2. 340529 

0.6060-02 

1.21982 

0.22600-05 

0.0 

2.691973 

0.7810-02 

1. 12420 

G. 24010-05 

0.0 

3.J7H87 

0. 9830-02 

1.C6334 

0.25010-05 

0.0 

3.46301 0 

0.  1210-01 

1.02614 

0 .25620-05 

0.0 

3.927572 

0.1470-01 

1.01041 

0.25940-05 

0.0 

4.4uB41l 

0.  174D-C1 

1.C3303 

0.26C7C-05 

0.0 

4.928486 

0.2340-01 

1.CCC65 

0.26110-35 

0.0 

5.491CG3 

0 .2370-0 1 

1.C3CC9 

C. 26120-05 

0.0 

6.399414 

C. 2720-01 

l.COCJl 

G. 26120-05 

0.0 

6.757475 

0.3110-01 

l.OoOJO 

0.26121-05 

0.0 

7.469234 

0.3520-01 

1.C003C 

0.26120-05 

0.0 

8.239J73 

0.39  70-01 

l.coeco 

0.26120-05 

0.0 

9.071  730 

0.4450-01 

l.OGOOC 

0.26120-05 

0.0 

9.972332 

0.4960-01 

1.00000 

0.26120-05 

c.o 

10.946423 

0.5540-01 

1.03C0C 

0.26120-05 

0.0 

12.030300 

0.6150-01 

l.CLOOC 

0. 26 100-O5 

0.0 

ETA 

Y/L 

z 

ZN 

TEf 

0.0 

0.323776 

0.334486 

1.381919 

>0.513393  -0.2860 

00 

0.0 

0.410545 

0.373070 

1.275960 

-0.384090  -0.4880 

00 

0.0 

0.507233 

0.375123 

1.193007 

-0.269716  -0.7330 

00 

c.o 

0.609366 

0.354985 

1.131703 

-0.183640  -0.102  0 

01 

0.0 

0.713187 

0.311911 

1.087847 

-0.118964  -0.1330 

01 

c.o 

0.831969 

0.25C956 

1.056578 

-0.078554  -0.168D 

01 

0.0 

0.877645 

0.181679 

1.034315 

-0.351069  -0.2G40 

01 

c.o 

0.933664 

0.11  5630 

1.019058 

-0.031158  -0.2430 

01 

0.0 

0.969257 

0.C62823 

1.C39507 

-0.016933  -0.285D 

01 

0.0 

0.98629 5 

0.028110 

1.004311 

-0.007822  -0.3300 

01 

0.0 

0.996506 

0.009918 

1.001962 

-0.002935  -0.3780 

01 

0.0 

0.999230 

0.002615 

1 .001 120 

-O.OC0852  -0.4300 

01 

0.0 

0.999883 

0.000482 

I.00C893 

-0.0CG180  -0.4860 

01 

0.0 

0.999989 

0.G03057 

1  .000350 

-0.000026  -C.547D 

01 

0.0 

0.999999 

0.000304 

1.C0C144 

-O.CCOOC2  -0.6130 

01 

0.0 

1.033000 

0.000000 

1.00C844 

-O.OCrcOO  -0.664C 

01 

c.o 

1-00-030 

O.OOOCOO 

1.000844 

— 0. 0090 CO  -0.7610 

01 

c.o 

1.030000 

0.  COO 3 00 

1.000844 

-0.030000  -0.8440 

01 

c.o 

1.003000 

-0.000300 

1.C00844 

-O.OCCCCO  -0.9340 

01 

0.0 

1.000000 

-C. 000300 

1 .000844 

-O.COCCCO  -0.1030 

02 

0.0 

1.030000 

-0.000030 

1.CC0030 

-0.00237 2  -0.1140 

02 

CHI 

J-EL 

LET 

PRL 

PRT 

S»  HT 

0.0 

1.469685 

1.000000 

0.730229 

0.900000 

0.56500 

04 

0.79270-01 

1.326576 

1.000000 

0.735071 

0.900COP 

0.580  ID 

04 

0.19840  00 

1.279709 

1.000000 

0.744542 

0.900000 

0.61050 

04 

0.32070  00 

1.274339 

1.000000 

0.753910 

C. 900000 

0.64290 

04 

0.43530  00 

1.280597 

l.OOCOOO 

0 .758019 

O.SCOCOO 

0.65830 

04 

0.52930  00 

1.298791 

1.000000 

0.764490 

0.900000 

0.69320 

04 

0.59720  00 

1.313617 

l.OOCOCO 

0.77C3I5 

C.90000C 

0  .7058P 

04 

C. 63510  00 

1.317808 

1.000000 

0.774148 

O.OOOCOO 

0.72380 

04 

0.644CD  00 

1.3G5934 

l.OOOOOC 

G. 776730 

0.9CGCCC 

0.7363D 

C4 

0.6266D  00 

1.294156 

1.000000 

0.7  7804 1 

0.900000 

0.7439D 

04 

0.58200  00 

1.276923 

1.000030 

0.77861  7 

O.90CCOO 

0.74360 

04 

0.50580  09 

1.262748 

1.000000 

0.778933 

0.9CCC0C 

0.752  ID 

04 

0.39770  00 

1.253135 

1.C03000 

0.779202 

0.900C00 

0.75500 

04 

0.27C40  00 

1.247570 

l.OCOCOO 

0.779438 

C.900C00 

0.75730 

04 

0.15C60  00 

1.244839 

l.OOCOCO 

0-7  79604 

0.900C30 

0.75890 

04 

0.64650-01 

1.243749 

l.CCOOOO 

0.7  79696 

0.930000 

0.75970 

04 

0.  19950-01 

1.243420 

1.C00300 

0.779735 

0.900COO 

0.76030 

04 

0.4C  760-02 

1.243351 

1.000000 

0.779747 

0.9G0C00 

0.76310 

04 

0.49730-03 

1.243343 

1.000000 

0.779750 

0.5CCC0G 

0.76010 

C4 

0.32200-04 

1.243342 

l.COOCCC 

0.7  rom 

0.900000 

0.76010 

04 

0.11070-05 

1  .243342 

1.C03000 

0.7  79  751 

C. 900000 

0.760  ID 

04 

0.19940-07 

1.243342 

l.COOOOC 

0.779751 

0.900C00 

0.76010 

04 

-.23980-07 

1.243342 

l. 000000 

0.779  751 

0.9CCC00 

0.76010 

04 

-.8710D-07 

1.243342 

l.OOOCCO 

0.779751 

0.9C0CC0 

0  .76010 

04 

-.25590-06 

1.243342 

1.000000 

0.779751 

0.50CC30 

0.76310 

04 

-.67020-06 

1.242242 

1.000000 

0.779753 

C.90CCC0 

0.76010 

04 

T/TE 

TN 

CP/CV 

RHO 

0.3 


0.0 


0.872871  0.023179  0.5399870  03  0.66147Z0-01  0.2764050  00  1.415224  014801170-04 
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C. 160349 

0.8000-04 

0.87TC22 

C. 028411 

0.9163480 

03 

0.1122500 

00 

0.2976400  00 

1.400717 

0.2824650-04 

0.333782 

0.2150-03 

0.882361 

0.032867 

0.1 349840 

04 

0.1653520 

00 

0.3138540  00 

1.374084 

0.1914630-04 

0.521368 

0.421D-03 

0.888912 

0.036751 

0.1842670 

C4 

0.2257220  00 

0.3279020  00 

1.349549 

0.1399940-04 

0.724260 

0.7180-03 

0.896733 

0.040191 

0.2404020 

C4 

0.2944870 

00 

0.3514900  00 

1.339618 

0. 107C670-04 

0.943709 

0.1130-02 

0  .905903 

0.043166 

0.3047800 

04 

0.3733480 

00 

0.3652820  00 

1.324375 

0.8423330-05 

1.181364 

0. 1690-02 

0.916441 

0.G45328 

0.3762950 

C4 

0.4609530 

00 

0.369ei50  00 

1.311971 

0.6802240-05 

1.437783 

0.2430-02 

u.  923239 

C. 046163 

0.4531 790 

C4 

0.5551340 

00 

0.3598930  00 

1.303143 

0.5629520-05 

1.715461 

0.339002 

0.943478 

C  *045060 

0.5320540 

C4 

0.6517540 

00 

0.3318380  00 

1.297873 

0. 477790D-05 

2.015791 

0.4590-02 

0.954C69 

0.041547 

0.6381470 

C4 

0.7449660 

00 

0.2856140  00 

1.295328 

0.4164P4O-05 

2.340629 

0.6060-02 

3.966670 

0.035591 

0.6761230 

04 

0.8282350 

00 

0.2257530  00 

1.294261 

0. 3733020-05 

2.691973 

0.7810-02 

0.977839 

0.027613 

0.731 36  3D 

04 

0.8959030 

00 

0. 1606860  00 

1.293664 

0.3440400-05 

3.071 787 

0.983D-02 

0.986777 

0.019424 

0. 7713150 

04 

0.9448430 

00 

0.  1C051CO  00 

1.293113 

0. 3254150-05 

3.483010 

0.1210-01 

0.993C96 

0.01 1837 

0. 7963170 

C4 

C.975495D 

00 

0.5359250-01 

1.292613 

0.3146410-05 

3.927572 

0.1470-01 

0.946942 

0. 3061 20 

0.809*540 

04 

0.991563D 

00 

0.2344970-01 

1.292255 

0.3392150-05 

4.406411 

0.1740-01 

0.993894 

0.002594 

0.8149691) 

C4 

0.99B3180 

00 

0. 802593D-02 

1.292057 

0.  3069580-05 

4.928486 

0.2340-01 

Q.99969C 

0.030862 

0.8167300 

04 

0. 1C00480 

01 

0.2019910-02 

1.291972 

0.3062290-05 

5.491000 

0.237C-01 

0.999937 

0.000212 

0.8171280 

04 

G.IGCC960 

01 

0.3441660-03 

1.291945 

0.3360590-C5 

6.C994 14 

0. 2720-01 

0.999992 

O.OOC 035 

0.3171850 

04 

0.1C01C30 

01 

0.3S4763D-04 

1.291939 

0.3360330-05 

6.757475 

0.311G-01 

0.999999 

0.000004 

0.8171900 

04 

C. 1001040 

01 

0. 1941460-05 

1.291938 

0.  336C31  D-05 

7.469234 

0.3520-01 

l.OCOOOC 

o.ooroco 

0.81719G0 

04 

0. 1001C4D 

01 

0.6G96610-07 

1.291938 

0.3360310-05 

8.239373 

0.3970-01 

1.000030 

0.003000 

0.8171900 

04 

0.1001040 

01 

0. 1762870-08 

1.291938 

0. 3360 J10-05 

9.071730 

0.4450-01 

1.J003CC 

-c.ooocco 

0.8171960 

C4 

0. 1061G4D 

01 

0. 1348340-10 

1.291938 

0.336031  D-05 

9.972332 

0.4930-01 

1  .COCOOC 

o.ooocoo 

0.8171900 

C4 

0.1001040 

01 

0.4588110-11 

1.291938 

0.306031 D-05 

10.946423 

0.554D-01 

l.OCOOOC 

o.oc occo 

0.8171900 

04 

0.10C104D 

01 

0. 1077590-10 

1.291936 

0.3260310-05 

12.3C30J0 

0.6150-01 

1.0C030C 

0.0 

0.8163420 

04 

0 .1000000 

01 

-.2921670-02 

1.291933 

0. 3060310-05 

On 

S  0.3000000-01  "'  S/REF-  0.3600010  00  “  Z  "•  0.5341950-02'  “  Z/REF*'  0.6410370-01 '  ' 

R  -  0.2933620-01  R/REF*  0.3322760  00  OX  "  G.2COOOD-01  NIT  ■  5  PHI  -  0.0  DEO. 

XI  -  0.1009280-12  OXI  -  0.995377D-13  0X0X1-  0.7932040  11  CWAll-  0.2S40000-01 


DIMENSIONAL  EOGE  PROPERTIES 

PE  -  0. 372894D  02  TE  -  0.7840020  04  UE  ■  0.2091990  04  VE  ■  0.0  HACHE  -  0.4818000  00 

OPEOXa-O. 3177180  14  OTEOX>-0. 1908500  16  DUEDX-  0.5484710  16  DVEDX-  0.0  RHOE  -  0.2769030-05 

DP£DM>  0.0  DTEOW*  0.0  OUEOM-  0.0  OVEOW-  0.0  RHOEMUE-  0.6992890-11 

LOCAL  EDGE  REYNOLOS  NUMBER  >0.6881450  02 


N0N01MENSI0NAL  BOUNDARY  LAYERS  PARAMETERS 

CFXINF*  0.7561340-01  CFXEOG-  0.2775500  00  CFHINF.  0.0  CFWEOG-  0.0 

CHEDGE*  0.1547750  00  CHINF  >  0.2151860  CO  STEOGE*  0.1013900  00  STINF  •  0.1409640  90 

CM  —0.6920U5D-01  CHIHAX-  0.2312810  01 


0IMENSI0N4L  BOUNOARY  LAYER  PARAMETERS 

LONGITUDINAL  SKIN  FRICTION*  0.1681740  01  PSF  DELTAMXJ  —0.5514580-03  THETA! X)  -  0.1283570-02 

TRANSVERSE  SKIN  FRICTION  >  0.0  PSF  OELTA>(PHtl>  0.2794080-01  THETAIPHI  l«  0.0 

MALL  HEAT  TRANSFER  RATE  *-0.4226240  02  BTU  OELTAIFT)  -  0.6595110-02 
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8BPBB3PB«3BB  0000050  0000000  33333333333 

38PB333SB3B33  3CC303050  OOOCOOOOJ  3333333333333 

B3  RR  CO  00  00  CO  33  33 

33  SB  00  00  00  00  33 

B3  33  00  30  00  00  33 

SRBR333B3BPB  00  00  OC  00  333 

BBRB3BBB3BR8  00  00  00  00  333 

33  BB  00  30  00  03  33 

BB  BB  00  00  OC  00  31 

BB  BB  03  03  00  00  33  33 

B"BB33?3BBB3B  330000000  000000300  333333333331 

SBBB33B3BBSB  0000000  0000000  3333333333 


33333333333  AAAAAAAA4  RRRRPRPRRRRr  GGGGGGGGG3G 

3333333333333  44444441444  RRRRPPPRrrrhr  GGGGGGGGGGSSG 

33  33  44  44  RR  RR  GG  GG 

33  44  44  RR  RR  GG  GG 

33  44  AA  RR  RR  GG 

333  44  '  44  Ro*PPRPRRQRRR  GG 

333  AA444A4444AAA  RRPPRRPROORR  GG  GGGS 

33  44AAAAA4A44A4  R»  RR  GG  GGGGG 

33  44  44  RR  RR  GG  GG 

33  33  *4  44  RR  RR  GG  GGG 

333333333333  44  44  »R  RR  GGGGGGGG GGGGG 

3333333333  44  44  RR  rr  GGG GGGGG GGG 


B90334RG 


JJ 

00300030000 

BBBPBB9BBBBB 

T777TT7TT7TT7 

11 

33333333333 

666666666666 

JJ 

DC33000000030 

PB3BBRBB3BBBB 

777777777777 

111 

3333333333333 

6666666666666 

JJ 

00 

00 

BB 

BB 

77  T7 

1111 

33 

33 

66 

JJ 

00 

00 

BB 

BB 

7T 

11 

33 

66 

JJ 

00 

00 

BB 

BB 

77 

11 

33 

66 

JJ 

00 

00 

P33BBPBBBBBB 

77 

11 

333 

666666666666 

JJ 

00 

00 

BBB3BBBPBPPB 

77 

11 

33  3 

666666666(666 

JJ 

00 

00 

BP 

BB 

77 

11 

33 

66  66 

JJ 

JJ 

00 

00 

BB 

BB 

77 

11 

33 

66  66 

JJ 

JJ 

00 

00 

BB 

BB 

77 

11 

33 

33 

66  (6 

JJJJJJJJJJJJJ 

0013CP0000030 

30RR3B83BPPBB 

77 

333333333333 

6666666666666 

JJJJJJJJJJJ 

oooooonoooa 

PP3PBBBBBBPB 

77 

11 

3333333333 

66666666(66 

FFFFFFFFFFFFF 

FFFFFFFFFFFFF 

TTTT7TTTTTTT 

tttttttttttt 

0000300 

00303P0C0 

33333333333 

3333333333333 

FFFFFFFFFFFFF 

FFFFFFFFFFFFF 

0000311 

030001000 

OOPOOCO 

OOOOCOOOO 

FF 

TT 

00 

CO 

33 

33 

FF 

00 

00 

00 

00 

FF 

TT 

00 

03 

33 

FF 

00 

00 

00 

00 

FF 

TT 

00 

00 

31 

FF 

00 

00 

00 

OC 

FFFFFFFFF 

TT 

10 

00 

3)3 

FFFFFFFFF 

03 

00 

00 

00 

FFFFFCFFF 

TT 

no 

00 

333 

FFFFFFFFF 

00 

13 

OP 

OP 

FF 

TT 

On 

OC 

33 

FF 

09 

00 

00 

00 

FF 

TT 

30 

00 

33 

FF 

09 

00 

00 

00 

f  F 

TT 

00 

00 

33 

33 

FF 

00 

03 

30 

00 

FF 

TT 

ooonooiec 

333133333333 

FF 

OOOOCOOOl 

OOOPOOPPO 

FF 

TT 

0300000 

3333333331 

FF 

0300000 

C90P011 
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PROPERTIES  AT  THE  WINDWARD  STREAMLINE 


S/REF 

s 

CFXINF 

ST  INF 

OWIOIM) 

QW/QWSTAG 

2KALL 

0.0 

0.0 

0.0 

0.1469000  00 

-0.4402850  02 

0.1000000  01 

0.873264 

0.120000D 

00 

O.IOOCOOD-Ol 

0. 3564310-01 

0.1717510  00 

-0.5148960  02 

0.1169469  01 

0.872871 

0.3600010 

00 

0. 3000000*01 

0. 7561340-01 

0.1409640  00 

-0.4226240  02 

0.9598880  00 

0.867531 

0.  7432090 

00 

0. 6193390-01 

0.9255370-01 

0. 8645050-01 

-0.2592540  02 

0.58BS31D  00 

0.856029 

0.1223210 

01 

0.1019340  00 

0.4612770-01 

0.2637580-01 

-0.7944990  01 

0.1804S19  00 

0.694588 

0.1463210 

01 

0.1219340  UO 

C.24JS090-01 

0.1071250-01 

•0.3238930  01 

0.73564  30-01 

0.561653 

0.13832 10 

Cl 

0.1319340  UO 

0.153399D-C1 

0.8296250-02 

-0.251016D  01 

0.5701210-01 

0.536180 

0.1733210 

01 

0.1419340  00 

0.1179910-01 

0 .6900440-02 

-0.208e600  01 

0.4743740-01 

0.524129 

0.1943210 

01 

0.1619340  00 

0.66521 7U-02 

0.5469660-02 

-0.1660420  01 

0.3771240-01 

0.418521 

0.2363210 

Cl 

0.171934C  00 

0. 7412870-02 

0. 4715320-02 

-0.1431650  01 

0.3251640-01 

0.414790 

0.2303220 

Cl 

0.1919340  00 

0.6722300-02 

0.3657580-02 

-0.1110760  01 

0.2522820-01 

0.404446 

0.2421220 

01 

O.201934C  00 

0.2266380-02 

0.2282820-02 

-0.696C950  00 

0.1561010-01 

0.263168 

0.2483220 

01 

3.2069340  00 

0.3129820-02 

0.2365530-02 

-0.7213310  00 

0.1638330-01 

0.259662 

0.2343220 

01 

0.2119340  00 

0. 3180370-02 

0.2275700-02 

-0.6939630  00 

0.1576170-01 

0.257781 

0.2663220 

01 

0.2219340  00 

C. 3012290-02 

0.2056620-02 

-0.62  72000  00 

0.1424530-01 

0.254742 

0 .2903220 

01 

0.2419340  00 

0.2551330-02 

0.1650340-02 

-0.5033890  00 

0.1143320-01 

0.247057 
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APPENDIX  VIII 

LISTING  OF  THE  COMPUTER  PROGRAM 

Following  is  a  listing  of  the  computer  program  described  in  the  last 
four  appendices.  The  listed  program  is  in  double  precision  for  use  on  an 
IBM  machine. 

In  each  subroutine  the  cards  are  labeled  with  an  acronym  for  the 
subroutine  name,  and  they  are  also  sequence  numbered  in  the  last  four 
columns.  Statement, numbers  are  in  ascending  order  in  increments  of  10. 
All  formats  are  gathered  at  the  end  of  each  subroutine. 
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C 


11 


20 


PRCGKAM  main  main 

IMPLICIT  REAL'S! A-H.O-ZI  MAIN 

REAL'S  NGSE  MAIN 

CCKMCN  /ASSVAR /  IFl.KBl  MAIN 

CCKMCN  /BLUNT/  ZKI 1 I ,XH ( IOC  I , PHI  LOO  I  .PE BI100 1 ,UEBI 100 1  .TEBI 1  301  .MA  IN 
IXMM  10J)  .NeLUNT.NHtllCc  ,NM  PLNH  ,  NBLPL  1  MAIN 

CCKMCN  /CCNVNG/  CCNV.MTl.MT2.Mn.NlT  MAIN 

CCKMCN  /OePVAK/  F(2.1ul. 31, FM7.IJ1, 31  ,012,10,31, GM  2  , ICmi.TI2.MAIN 
110l,3),TN(2,l0l,3),ZI2.1Cl,3J,7M2 .101.3I.CI  101),  CM  1011 ,  Y 1 1C  11 , VCMA IN 
2L IIOII. RCA CL (101 )  MAIN 

CCKMCN  /FI  NO  IF/  A 1 1011 , BP4 1011 ,B( IC1 1.CCI 1011 ,001  1011 .01 101 1 ,E< I01MAIN 
1I.TP1  MAIN 

CCKHCN  /FRSTPM/  F HC1 NF  , P I NF,  T T S . UF S .  R  . PR L  •  0.  XMA  MAIN 

CCKMCN  /CtCM/  ALPHA,  THETAC.r.CSC.INr.'iE,  VLSI  ,X,XX.  MX  MAIN 

CCKMCN  /INJECT/  1NJCT IN J, GA S2 • CLGL , HAST PN  MAIN 

CCKMCN  /I  NT  COP/  IE  ,  I  K  ,  KENT)  ,KtNC2,  KLX  ,  K,  L  .  NOLHT  1. IND, KPRT . LPRT , KPk , MA IN 
1LPR  MAIN 

CCKMCN  /PDECCF/  tu( 10 1 1 . A  1 1 10 1 ) . A2C 1 0 1 1 , A3 C 101  I , A* C l G 1  I , A5 II 0 1  I  MAIN 
CCKMCN  /PLOTS/  PLOT.KPLOT ( A I .LPLOT 1 4 1 , KPRF LI *1 , LPAFL I A) ,NPTS (4,2 1  MAIN 
CCKMCN  /STAG/  PSTAG.TSTAG.PNC.CWSTAG.HSTAG.HE  MAIN 

CCKMCN  /SURF  AS/  Cw ALL, CwlND, Ft* IND, VWALL.T MALL ,XTW( 5001. TMXI 5001 > XMA  IN 
1C  1 1  SCO) .Cl  XI  SCO! .HHALL.TC0NJ.KC1.KTW  MAIN 

CCKMCN  /TMPHTR/  TEMPI  101 1 , TCTEI 101  I ,TP( 101  I .PTW.TB  MAIN 

COKMON  /TRANSN/  KTRANS , KC NSE T, X I F , CH I  2 ( 1 01 1 ,CH I  MAX , XB AR  MAIN 

CCKMCN  /TRdLNT/  ASTAR, AKST AP.ALAMDA, VSUBL t EVSCTVI 101 1 .PRT.EOVL AW ,EMA  IN 
IPLUSIlull.ALET.LAMTRB  MAIN 

CCKMCN  / UN  1110/  DXINVS.DISK  MAIN 

COMMON  /WSQLVE/  Cm  MAIN 

CCKMCN  /XICOHi:/  X1.XXI..CXI  .XICLD.CXOXI  .DXDXXI  MAIN 

CCKMCN  /XSC'LVE/  XSTA I  IOC  1  , CXKAX.OX,  JX  1LD , DXl  , NSOL  VE  MAIN 

CCKMCN  /ZCCCRC/  F T AINF , El AF AC.U A  I 101 1 ,0E T A( 10 1 1 , ADTEST , KAOE T A  MAIN 

DATA  AND, YES/2HT  C.2HYF/  MAIN 

DEFINE  FILE  6161, 6472, L.IFLI, 4161.6472, L.KBL1  MAIN 

CALL  INPUT  MAIN 

IF  (FISK.EQ.ANOI  GO  TO  10  MAIN 

KCN0«KCND2  MAIN 

CALL  CISKIN  MAIN 

REMAP  10  MAIN 

CCMINUE  MAIN 

CALL  INIT  MAIN 

CALL  AERO  MAIN 

CALL  OUT  1  MAIN 

CALL  CCNTHL  MAIN 

IF  IPLf  T.EO.ANO)  GO  TO  20  MAIN 

END  FILE  13  MAIN 

EMC  FILE  14  MAIN 

(NO  FILE  IS  MAIN 

INC  FILE  16  MAIN 

REMIND  13  MAIN 

REKIND  14  MAIN 

REMIND  IS  MAIN 

REMIND  16  MAIN 

CALL  PLGTEft  MAIN 

STOP  MAIN 

END  MAIN 
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SLBRCUTINE  ABCDF  (Ml  ABCO 

IMPLICIT  REAL'dI A-H.O-ZI  ABCO 

REAL'S  NOSE  ABCD 

CCKMCN  /F1NDIF/  AI1J1), SB  1101), BI1011.CC 1101), DO 1101), 0(101). EI101ABC0 
II  .CM  ABCO 

CCKMCN  / INTEGR/  I E , 1 M. REND. K END?, KLX .KX.LL .NBLNT I.IND.KPRT.LPKT.KPABCD 
1R.LPR  ABCO 

CCMMCN  /PDECCF/  AO (101 1 ,A1 ( 101 1 . A21 10 1 1 , A31 10 1 1 . A41 101 1 ■ A51 1 01 1  ABCO 

COKHCN  /wSOLVt/  n-  ABCO 

COKMCN  /XI  CORD/  XI, XXI, OX  I ,XI OLD , CXDX 1 , UXOXX [  ABCD 

CCKMCN  /ZCCDPC/  ET AINF .ETAKAC.CTA I  10 1 1 ,0C T A( 10 1 ) . ADTEST .KADETA  ABCO 
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DIMENSION  UI2. 101,31 

ABCD 

12 

c 

ABCD 

13 

c 

SUBROUTINE  A8CDF  CALCULATES  THE  COEFFICIENTS  OF  THE  GOVERNING 

ABCD 

14 

c 

EQUATIONS  IN  FINITE- DIFFER  ENCE  FORM 

ABCD 

IS 

c 

ABCD 

lb 

1*1 

ABCD 

17 

K-2 

ABCD 

IB 

c 

ABCD 

19 

c 

ABCD 

29 

IF  (KK.EO.l. AND.LL.EO.il  GC  TO  60 

APCD 

21 

IF  IKK.E0.1I  GO  TO  40 

ABCD 

22 

IF  UL.EU.ll  GC  TO  2C 

ABCD 

23 

c 

ABCU 

24 

c 

COEFFICIENTS  FOR  THE  GENERAL  CASE 

ABCD 

2S 

c 

ABCD 

26 

DO  10  J«2.  IM 

ABCD 

27 

DETA 1*ETA !  J*1 l-ETA t J 1 *ET AF AC**2* C ETA t J l-ET At J- 1 1 ) 

ABCD 

28 

DETA2* IETAI J-l J-ETAtJ ) ) **2*E T AF AC* 1 E T A 1 J J-ETA 1 J- 1 1  1**2 

ABCD 

29 

At J1-CR|*I2.0DO*ETAFAC*AOI J 1 /OET A2-ET AFiC»*2* A  1 1 J 1 /OE I  A  1 1 

ABCD 

30 

CttJl'CRI*  t2.GUC*A3l  J  l/tiETA2*All  JI/DETA1  1 

ABCD 

31 

eBtJI*CRI*t-2.0t0»tl.0C0*ETAFACl*A0t JI/DETA2-C 1.0D0-ETAFAC»»2l*AItARC0 

32 

1J1/DETA1*A2|J) 1 

AdCD 

33 

BIJ1*BB< J)»A4f  J1/DXI  +  A5I JI/2.CCG/DW 

ABCD 

34 

ODIJ)=-ll.ODO-CPI)/CRI*tAI  JI*WlI.J-l.Kl*Hflf  JI*Wt  I,J,KI*CCt  J»*HtI 

« JACCD 

35 

1*1. Kl) 

ABCD 

36 

Cl  J I  =  00t  J  I  — A3IJI4A4IJ  1  *W(  I,J.Kl/DXI*ASIJI*l<*f  l*lt  J.K-D-Ull,  J.K+llA^CO 

37 

l«MtI i J.K) I/2.00C/DH 

A9CD 

3d 

1) 

CONTINUE 

A9C0 

39 

RETURN 

AhCO 

40 

20 

CONTINUE 

ABCD 

41 

c 

ABCD 

42 

c 

COEFFICIENTS  FCE  THE  STAGNATION  LINE 

ABCD 

43 

c 

ABCD 

44 

1*2 

ABCD 

45 

K-l 

ABCD 

4b 

DO  30  J *2, IH 

ABCD 

47 

DETAl-CT&l J*1 1-ETA t J I *ETAFAC**2* IETAI JI-ET At j-lll 

ABCD 

49 

DETA2* ICTA 1 J*1 l-ET A  I J) )»*2*ETAFAC* IETAI JI-FTAI J-l 11**2 

ABCD 

49 

AIJ)*CRI*I2.0D0*ETAFAC*ACI J I /GET A2-c T AF AC* *2* A l t J l/DEI All 

ABCO 

50 

CCIJI'CKI*  t  2.CDL*A0IJI  /i:FTA<:«Al(Jt/LfcTAll 

ABCD 

51 

BBI  JI-CRI* t-2. 000*1 1 .OUO*E TAF AC  1 *AOI  J 1  /UET A2-t 1 ,000-E T AF AC**2I • A 1 1 ABCD 

5? 

1J1/0ETAI 4A2I J 1 1 

A3CD 

53 

B< JI*BHf J)*A5t JI/Om 

ABCD 

54 

DIJI*-A)t  JI«A5tJI*Mf  1  lJ,Ki/OU-ll.ODC>CRII/CRI*IAIJl*Nl  I  .  J- 1 ,  K  }  *E  Bl  ABCO 

5> 

lJI*wl I . JtK >*CCIJI*Hl 1 i J*1,K1 | 

ABCD 

56 

30 

CCNTINUL 

ABCD 

57 

RETURN 

ABCD 

58 

40 

CONTINUE 

A3CD 

59 

c 

ABCO 

60 

c 

COEFFICIENTS  FOP  THE  HINOWARI)  STREAMLINE 

ABCO 

61 

c 

ABCD 

62 

l-I 

ABCD 

63 

K-2 

ABCD 

64 

DO  SO  J*2t IM 

ABCD 

i>5 

DETA1-ETAI J*1 I-ETAtJI *ETAFAC**2*IFTA< JI-ET At J- 1 1  I 

A9C0 

6b 

DETA2* IETAI J-l l-FTAt J> 1  »*2 -ET AF AC* 1 L T A 1 JI-ET At J-lll* *2 

ABCO 

67 

AlJ)-CHl»|2.cDC*tTAFAC*AJI JI/DEIA2-I  TAF AC • *2*A 1 1 J 1 /DE T A L | 

ABCD 

68 

CCI Jl'CKl »  12 .CCO*AOt J»/UETA2*A1CJ)/CETAI 1 

ABCD 

69 

BBIJ)=CRI*(-2.CDO*ll.ODO*ETAFAC!*AOt J1/0ETA2-1 1 .OOO-ET AF AC** 2 1 * A 1 ( AbCD 

70 

1JI/DETAI-A2IJI) 

ABCD 

71 

BIJI-BM JI«A4I JI/CXI 

ABCD 

72 

Dt Jl»-t l.ODC-CRI l/CR l-IAIJI-WI I . J- 1 , Kl -BBt Jl *W 1 1 , J ,K 1 -CCI J »* Wt l , 

J -ABCD 

73 

11«KII*A4IJ)*W| liJ.KI/DXl— A3IJI 

ABCO 

74 

so 

CONTINUE 

ABCO 

75 

RETURN 

ABCD 

76 

60 

CONTINUE 

ABCD 

77 

c 

ABCO 

78 

c 

O.C.C.  COEFFICIENTS  FOR  THE  STAGNATION  POINT 

ABCO 

79 

c 

ABCO 

80 

DO  70  J*2t  IM 

ABCD 

81 

DETA1-ETAI J*1 l-ET At JI*ETAFAC**2*I  ETA  1 JI-ET At J-lll 

ABCD 

82 
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DETA?*tETA(J*ll-ETA(J))**2*E1AFAC*(FTA(Jl-FTAI  J— 1 1  »**2  ABCO  83 

AIJl*2.0O3*£TAPAC.*A0(J>/GETA2-FTAFAr.**2*AllJI/DkTAl  A  BCD  84 

CC(J)«2.0nC*AC(J>/DLTA2*Al  (JI/DETA1  ABCO  85 

81  Jl --2.000*1 1.0DJ*cT AF  AC  I •  AC  I J ) /DLI A2-(  1 . 300-ET AF AC * *2I*A 1 I J ) /DE T AHCO  06 

1A1*A2(J)  A8C3  87 

D(JI*-A34J)  ABCO  88 

73  CONTINUE  AfaCO  89 

RETURN  ABCO  90 

ENO  ABCO  91 


10 

20 

30 

40 

50 


SUBROUTINE  ADOETA  I TS T , ASVP , ET ACLO )  ADET 

IMPLICIT  REAI*8IA-H,0-Z1  ADET 

REAL*8  NOSE  ADET 

COPMCN  /OEPVAR/  F(2,  101 , 3 1 .FNI  2. 101 , 3> ,G( 2 , 101 ,3> .GNI 2. 101 , 31 . T ( 2.  ADET 
1101.3I,TN(2,101.3).Z(2,1C1,3I,ZMZ,101,3I,CI 101 1, CNI 131 1 ,Y( 1011 .YPAOtT 
21(161 1 .KORCE  4  1011  ADCT 

CCPMCN  /Gl  >  alpha,  THETAC.NCSE.RNClSE.NLST.X.XX.HX  aoet 

CCPMCN  /1NTEGR/  If . IM.KeNO .KEND2 ,KLX , K .L .N3LNT 1 , J ND.K PUT ,LPft T ,KPR ,  AGET 
1LPR  ADET 

CCPHCN  /SOLPNT/  Chi  lOU.CNhl 10 1 ) . VW(  13 1 1 , Gw( 1011 . TWI 1 31 1.GHYI101 1 • ADET 
1FMNI  1011  ,F  hi  1011  ,TWN<  lClI.ZhllOll  ,  ZhM  1 3 1  I  , X  I W  .DXCXI  h  ,  Xh ,Ru  AOET 

CCPMPN  /XSCLVE/  XSTAI  1-JGI  , DXPAX.DX .UXOLO , DX1 ,NSOL VE  AOET 

COPMCN  / 7 CCOFC/  L T Al NF  ,ET AFAC .  ETA11 1 101 1 , DET A0(  IG 1 1 , AOTEST , KADE TA  AOET 
DIMENSION  FT A2 1131  1,  UETA2U011,  ChZIlUll.  VH2I101I,  FX2I101I.  GW2AJET 
1(1011,  TM2I1C1).  F 2A I  1011.  F 28 (1011,  F2CII01I.  G2A< 1C1 1 ,  G2BI 101 1 . ADET 
2  G2CI101),  T2AI101),  123(1011.  T2CI101J  AOET 

DIPCNSI3N  F7C(1CII,  T  2C 1 1C  I ) .  G2DI1C1I,  cTAIlOll  AOET 

D1  PE  NS  ION  1x2  ( 101).  Z2AU01I,  22BI101I,  22CI101I,  Z2CI101I  ADET 

DATA  BLUNT , SHARP/ 3H8LUNT .5HSHAPP/  ADET 

AOET 


AOET 

IE2-I IE-1 1/2  AOET 

IF  ITST.GT.2.0DC I  GO  TC  20  AOET 

IF  (TST.E0.2.00L 1  GO  TO  10  AOET 

ETJIN 2*1.1 C3*ETAINF  aoet 

KRITE  16,290)  X.EIAINF.ETA IN2  AOET 

GC  TC  30  AOET 

E  1 AI N2*0. 9U0* t TA INF  AOET 

NRITl  16,300)  X.FTAINF.E TA1N2  AOET 

GO  TC  30  AOCT 

ETA!N2*ETA|NF  aoet 

NRITF  (6,310)  X, ET  AOLD. ET  A IN2, TST  ADET 

GC  TC  SO  AOET 

CONTINUE  AOET 

IF  ICTAFAC.E0.1.C00I  0ET«1*ETAJN2/DFL0ATI IM)  AOET 

IF  IETAFAC.NE.1 .0001  UETA1«£TA IN2* (ET AFAC- 1 .0001/1 ETAF AC**IM-1 .COCAOET 
H  ADET 

DEI A2( 1 1*0.000  AOET 

Di 1 A?( 21 *DET  A  1  AOET 

ETAI I )*0.000  AOET 

E1A2I 1I*C.0DC  AOET 

ETA2(2l*OCTA2(2)  AOET 

DO  40  N»2,IM  AOET 

0ETA2IN4) I *DE 1 A? I NI*E TAF AC  ADET 

E1A2(N*II*ETA2(N'I<0ETA2(N*1I  AOET 

E1A(M*ETAC(M  AOET 

CCNTINUE  AOET 

ETA2I  It l*ETA IN2  AOET 

ETA( IE)*FTAINF  ADET 

GO  TO  70  AOET 

CCNTINUE  AOET 

IF  ItTAFAC.EO. 1.000 1  OET A1*ET ACLO/OF LP  AT  I  I  Ml  AOET 

IF  (ETAf AC.NE.l.OUOI  OET  A 1«ETACLD* I LTAFAC— 1 .000) /( ETAF  AC**|M— 1 .OOOAOET 
11  AOET 


DETA2I 1 1*0.000 


AOET 


0ETA?(2I*U[IA1 


AOET 


ETA2I  D'O.OCO 


AOET 
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60 


10 


to 


to 

100 


110 


120 


130 


HO 

ISO 


£13(11*0.000 

ETAI2HOETA2I2) 

OC  60  N=2  # I M 

DETA2INM)=DITA2IN)*ETAFAC 

ET<MNMHFTA(M.0ErA2INM ) 

ETA2IM*ETA0<M 

CCM1NUE 

E1AC  IE  I  =E  T  ALLD 

ETA2(It)=ETAINF 

00  173  N=1.1E 

IF  SETA2IN) .GE.ETAGLDI  CO  TO  160 
J*0 

J.J+1 

IF  (ETA2INI.G7.ETAIJ1I  GO  TO  8C 
IF  IJ.LT.21  J=  2 
IF  (J.GT.I IE-Ill  J* I E- 1 
IF  i!TST.GT.2.0DCl  GO  TC  100 
CALL  IMER3  I  £ T A2 1 N ) , ET A ( J- 1) , ET A < J ) 
II.CU2INII 

CALL  INTER3  (  ETA2I  N» .E T A(  J-l  I ,  ET A<  J] 
II I VH2 (Nil 

CALL  INTER3  I ETA2 I Nl , ET Al J-l I, ET Al J] 
II •FH2(N) I 

CALL  INTER3  ( ET A2( Nl , ETA( J-l 1 , ETAI Jl 
1I.TW2IMI 

CALL  INTERS  I ETA2 INI , ET Al J-l I. ET A I J] 
11.ZW2IN)) 

IF  ^GW(IE21.CQ.O.OCOI  CC  TC  SO 
CALL  INTERS  I E TA2 ( Nl . E T Al J-l I . ETA  I Jl 
1I.GW2INI1  . 

CONTINUE 

IF  ITST.EO. 3.00C I  GO  TC  120 
CALL  INTERS  I E T A2 (Nl , E T Al J-i I , ET A ( Jl 
1FI  I.JM  »3  I  .F2CIM  I 

CALL  INTER3  ( ET A2 ( Nl , E I A I J-l I. ET A( Jl 
1TII,JM,3I,T2C(M> 

IF  IGI1,1E2,3).E0. 0.0001  GO  10  110 
CALL  INTERS  I E T A2 1 N I , E TA< J- 1 1 . ETA ( J | 
1GI1,JM,3I,G2CIM I 
CONTINUE 

CALL  INTERS  I E T A2 I Nl , E TA( J-l I , ETA  I J) 
1Z(1,J»1.3I,Z2CIMI 
IF  (TST.GT  .2.0COI  GO  TC  150 
CALL  IN1EK3  I C T A2 « N I , E T A I J-l I , ETA  I J) 
1F(2,J*1  ,21  ,F20(NI  I 

CALL  INTER3  » ET A2 ( N I . E T Al J-l I , ETA  I Jl 
IT  12.  J*1,2I  ,T2niM  I 
IF  (G(2,1F2,2I.LC.3.0CCI  GC  TO  ISO 
CALL  INTERS  I ETA2IN1 , ETAI J-l I , ETAI Jl 
1GI2.JA1.2I  ,G2(1|N>  I 
CONTINUE 

CALL  INTFR3  I  ET  A2 1 N I , &TAI  J- 1 1,  ET  A I  Jl 
1Z 1 2 . J* 1 • 2 1 ■ Z  201  Nil 

CALL  INTERS  I  ET  A2  I  Jl  .  E  T  Al  J-l  1 ,  ET  A I  J) 
IFI2.JM  .1  )  ,F2A(M  ) 

CALL  I  NT  fc  R  3  I E T A2 I Nl , ET A< J-l I , ETA  I J I 
1T(2iJ*1,1)«T2A(M) 

CALL  INTER3  (  f  T  A2  (  Nl  ,  E  T  At  J-l  I  ,  fcT  Al  J 1 
1ZI2.JM.11  .Z2AIM1 
IF  3CI2.If2.il. TC. 3. OCC)  GC  TO  HO 
CALL  INTERS  I  F  T  A2  I  N 1  ,  c  T  Al  J-l  I ,  ET  A I  J ) 
1GI2.JM,  1  I  .G2AIM  I 
CONTINUE 

IF  ITST.EO. A. 0001  GO  TC  170 
CALL  IMIR3  (ETA2INI  .ETAI  J-l  >,  ETAI  J) 
1F(]|JM,2),E2R<M> 

CALL  |NTEk3  (ETA2INI.ETAIJ— 1I.E1AIJI 
1TI l.JM, 21 . T  2R 1 N I  1 

CALL  1N1IK3  IETA2INI.FTAIJ— ll.ETA(J) 
1ZI  1.JM.2  I  .Z2RIN  >  I 
IF  (GI1.II2.2I.EC.J.0D0I  GC  Ttl  170 
CALL  INTERS  IETA2INI.L'TAIJ-1I,ETA<J| 


ADET 

58 

ADET 

50 

AOET 

60 

ADET 

61 

ADET 

62 

ADET 

63 

ADET 

66 

AOET 

65 

ADET 

66 

ADET 

67 

ADET 

68 

ADET 

69 

ADET 

70 

ADET 

71 

ADET 

72 

ADET 

73 

ADET 

74 

ETAI  JMI.CUfJ-ll.CU 

(J) . CUI JA 1 ADET 

75 

AOET 

76 

ETACJMI  ,VW(  J-|  I.VW 

I Jl , VWl JA 1 ADET 

77 

ADET 

73 

ETAI J41  l.FWl J-l l,FW 

(Jl , FU(Ja]ADET 

79 

AOET 

80 

ETAI  JM  I.TuI  J-l  |,TW 

IJI.TUIJaIADET 

81 

ADET 

82 

ETAIJAlI.ZUIJ-ll.ZU 

I  Jl .ZUIJAlAOET 

S3 

ADET 

84 

AOET 

85 

ETAI JALI.GUIJ-1I.GU 

I J 1 »  GU I J Al ADET 

86 

ADET 

87 

ADET 

88 

AOET 

89 

ETAIJ'aII.FI  l.J-1, 31 

•  FI  1 , J . 3 1 .ADET 

90 

ADFT 

91 

EIAIJA1I.TI l.J-1, SI 

. Til, J, 31, AOET 

02 

ADET 

93 

ADET 

94 

ETAIJaii.GI l.J-1, 31 

,G( 1 , J.3I .ADET 

45 

ADET 

96 

ADET 

97 

ETAIJa1I,ZI1,J-1,3I 

.211, J, 31 , AOET 

99 

ADET 

99 

AOET 

100 

ETAIJaii .FI2.J-1.2I 

.FI2.J.2I ,AOCT 

1C1 

ADET 

102 

ETAI JA1I.TI2.J-1.21 

.  M2,  J, 21, ADET 

103 

AOET 

104 

ADFT 

105 

ETAIJAII, GI2, J-l, 21 

«G( 2, J>2 1 , ADJT 

1  36 

ADET 

IC7 

ADET 

108 

ETAIJA1|,Z(2.J-1,2I 

.ZI2.J.2I, ADc  T 

109 

ADET 

no 

FTAIJaII, FI2.J-l.il 

.FI2.J.1I .ADET 

in 

ADET 

112 

ET  A 1 J  Al  | ,  T 1 2 ,  J— 1 ,  i  1 

.TI2.J.1 1 .ADET 

I  13 

AOET 

114 

FTAIJaII, 2(2, J-l, 11 

.2(2, J. 11, ADFT 

115 

ADET 

116 

AOET 

117 

ETAIJAII. GI2.J-l.il 

,GI 2, Jt 1 1 , ADET 

11U 

AOET 

119 

AOET 

120 

ADET 

121 

ETAIJaII.FI l.J-1, 21 

.FI1.J.2I  .AOcT 

122 

AOET 

123 

ETAIJAII, T( l.J-1,21 

.  Til, J, 21, ADET 

124 

ADET 

125 

ETAIJaD, 2(1,  J— 1,21 

.ZlliJ.2l.A0ET 

126 

ADET 

127 

AOt  T 

1 28 

fTAI  JAH.GI  l.J-1,21 

, GI1.J.2I, ADET 

129 
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160 


170 


180 


190 


200 


lG(l,J»l,2l,C2BINIi 

AOET 

133 

GO  TO  170 

AOET 

131 

CM2  (MM  .000 

AOET 

132 

Vrt2(M«Vtf(  Itl 

AOET 

133 

FM2INI-1 .000 

AOET 

139 

Gh2  ( N 1  »GW|  IEI 

AOET 

135 

lh2(NI*1.3C0 

AOET 

13b 

Zk2(M=l .000 

AOET 

137 

F2MM>  1.000 

AOET 

1  38 

F2B(NI=1.C0G 

AOET 

139 

F2CIM-1  .000 

ADET 

190 

f2CIM»1.0GQ 

AOET 

191 

G2A(NI«Gf 7,IE,1) 

AOET 

192 

G2CIM  >GI  1  >  1 E  <3  1 

ADET 

193 

G26(N)°GI I.IE.2J 

AOET 

199 

G2DfN)«GI2.IE«2l 

AOF.T 

195 

T2BIN)=1.0D0 

AOET 

196 

T2C«N)=1.0C0 

AOET 

197 

12AIM-1.000 

AOET 

19B 

T2CCNI-1.0D0 

ADET 

199 

Z2A(NI°1 .000 

AOET 

153 

22E(Nj«t.000 

ADET 

151 

Z2C  f  M«1 . 0D0 

AOET 

152 

22CIM-1 .CCO 

ADET 

153 

CCM  1NUE 

AOET 

159 

IF  IT&T.NE.2.C0CI  GO  TC  100 

ADET 

155 

CM2I IEIM.OOO 

AOET 

156 

F621 1EW.GUG 

AOET 

157 

6U2< lEI'GHIIE) 

AOET 

158 

Th2l IE  1* 1 . 300 

ADET 

159 

ZM2I 1  c  I  *  l  . 330 

AOET 

160 

F2AI IL 1= 1 .000 

AOET 

161 

F2C(  IE  l>  1 .030 

AOET 

162 

F2CI  IC>-i.CDC 

ADET 

163 

F2C( 1 El*l . OPO 

AOET 

169 

G2AI  1 C  l*GI  2 . 1 E 1 1 1 

AOET 

165 

G2BI  Ic  l-GI  1, 16,21 

AOET 

166 

G2C( I E l*GI 1 , IE.3 1 

ADET 

167 

G20( IE l=GC 2. 1 E.2) 

AOET 

165 

T2AI 1E1-1.000 

ADET 

169 

T2EC 161*1 .COO 

AOET 

170 

12CI 1EI-1.GDC 

AOET 

171 

T2CI I E l» l .GOO 

ADET 

172 

Z2M  ie)*i.:uc 

AOET 

1 7  J 

Z2PCIEI-1.CDG 

AOET 

1  79 

22C<lEI*1.3i)0 

ADET 

175 

Z2CC IEI-1.000 

AOET 

176 

CCMl'iUE 

ADET 

177 

ETA1KF«ETAIN2 

AOET 

173 

DC  233  J-l.It 

AOET 

179 

IF  I1ST.GT.2.0UGI  GJ  TC  190 

ADET 

18C 

FT«bl JI°ETA2( J| 

ADET 

181 

DETAnt JI*0ETA2IJI 

AOET 

182 

ChlJ l«CW2( J) 

ADET 

183 

VWf JI=V*2( Jl 

ADET 

189 

FN(JI>Fm2I J» 

AOET 

185 

1MJI«Tm2(  J> 

AOET 

1 86 

ZhlJls2W2( Jl 

ADET 

187 

IF  IGHIIE2I.EQ. 0.0001  GO  TO  190 

AOET 

1  88 

GUI J l»Gw2<  J) 

ADET 

189 

IF  f TST.EQ.A.OnO)  GO  TC  200 

AOET 

193 

FH.J.?I=F28I  Jl 

AOET 

191 

Tll.J, 2I«T2FIJI 

AOET 

192 

Z<1.  J.2M72BI  J) 

ADET 

193 

IF  (GI1.IE2.2I.E Q.O.uDO  1  GO  TO  200 

AOET 

199 

Cl  1  •  J«2)  °G2B  1  Jl 

AOET 

195 

IF  (1ST. GT. 2. GOD  GO  TC  210 

AOET 

196 

FI2.J.ll°r?AI Jl 

AOET 

197 

TI2.J«l|cT2AIJ) 

ADET 

198 

ZI2.Jill«Z2AI Jl 

AOET 

199 

IF  «G< 2. 1 fc2,l I.EU.O.GDCI  GO  TO  210 

ADET 

203 

G(2«J.1I°G2AI Jl 

AOET 

231 
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210 


220 


230 


240 


250 


260 


270 


2B0 

C 

C 

290 

300 

310 


IF  ( TST. EQ .3 .000 )  CO  TO  220 
F(1.J,3)>F2CI Jl 
Tll,J>3l'T2Ct J) 

2(1>J.3)*Z2C(J) 

IF  ICdt  IE2.3I.10.9.CD0I  GO  TO  220 

G(1,J,3)«G2CC Jl 

IF  (TST.GT.2.C00I  GO  TO  230 

FI2.J,2>>F2i>(  Jl 

TI2.J.2IM20I Jl 

2(2.J,2IM2D(  J) 

IF  (G(2, 112.21. £0.9. 000)  GC  TO  230 


CALL  DERIV3  IF .  1  .Z.ETA2,  I F  ,  1  ,FM 
CALL  DC  R I V  3  I  T  ,  1  .2  ,ET *2.  Ic .  1 ,  TNI 
CALL  0ER1V3  I  2 . 1 ,2  ,ETA2 ,  I E  .  1 .2M 
IF  (G(1.IE2.2) .NE • O.CCJ)  CALL  0CRIV3 
IF  (TST.CT.2.C0CI  GO  TC  260 
CAU  DFkIV3  I F , 2 , 1 . ET #2 , 1 1 . 1 , FK) 

CALL  0ERIV3  (T.2.1.ETA2. Ic.l.TNI 
CALL  0EMV3  IZ.2.1.ET A2-, IE.1.2K) 

IF  (GI2.IE2.I  I.NE.O.OCOI  CALL  CERIV3 
IF  (TST. CO. 3. CCU  GO  TC  270 
CALL  0ERIV3  IF.l  i3.ETA2.JEfl.Fkl 
CALL  DERIV3  < T , l , j  ,  CT «2.  I E  .  1 ,  T M 
CALL  DERIV3  (2,1  ,)>ET42, Ic.l.ZN) 

IF  (  Gl  I ,  I E  2 , 3  )  »M-  •  C.  000 1  CALL  0EKIV3 
IF  (TST. GT. 2. 0001  GO  TC  260 
CAU  DCRIV3  (F,2.2. ETA2ilE.lt TNI 
CALL  0EKIV3  IT.2.2.ETA2.1E.1.TM 
CALL  0ERIV3  ( l  ,2 , 2 ,  ET  A2,  I E  .  1 . 2M 
IF  (G(2, IE2.2J.NE.G.0U0)  CALL  CERIV3 
CCM  INUE 
RETURN 


ADET  202 
AOET  203 
AOET  204 
ADET  205 
AOET  206 
AOET  207 
AOET  208 
AOET  209 
AOET  210 
ADCT  211 
AOcT  212 
AOET  213 
AOET  214 
ADET  215 
ADET  216 
ADET  217 
ADET  218 
ADET  219 
AOET  220 
ADET  221 
AOET  222 
AOET  223 
AOET  224 

IG.1.2.ETA2, IE.1.GNI  AOET  225 

AOET  226 
AOET  227 
ADET  22 8 
AOET  229 

IGi2.1,ETA2,IC.I.GM  AOET  230 

AOET  231 
AOET  232 
AOET  233 
ADET  234 

(G.1.3.ETA2.IE.1 .ON )  AOET  235 

AOET  236 
AOET  237 
ADET  238 
AOET  239 

(G,2.2,ETA2. IE.1.GNI  AOET  240 

ADET  241 
ADET  242 
ADET  243 
ADET  244 

OLD  ETAirjFa,F10.5ADET  245 
AOET  246 

OLD  ETAINF-.F10.5ADET  247 
AUET  248 
■  .ADET  249 
AOET  250 
AOET  251 


FGFHAT  1 10X.22HET A  INF  INCREASED  AT  X*,F1Q.5.13H 
1.13H  NEW  ETAlM-c.FlO.5Z) 

FORMAT  (10X.22HETAINF  CCCREASED  AT  X*.F10.5,13H 
I.13H  NEW  ETA|).Fc,F1G.5/I 

FORMAT  I  10X,24I>ETa:lD  INCREASEC  AT  X  ■  ,  F  10.5.  2X,  1 3H0LD  ETAINF 
1F10.5.2X.1 3HNEW  ETAINF  »  ,F10. 5.2X.6HTST  -  .F4.1/I 
END 


G(2.J,2I=C2DI J) 

CCM  INUE 

IF  (TST. GT. 2. ODU  GO  TC  240 
CAU  DLklV  (Cw.LTA2» IE. l.CNW) 

CAU  DERI V  (FW.ETA2, lE.l.FhM 
CAU  OEKIV  (Th.ETA2.IEil.TwM 
CAU  DERIV  (ZW.FTA2.1E,l.ZkM 

IF  (GH(IE2I.NE.0.C0q>  CALL  0ER1V  IGW.ETA2. IE.1 .GWN) 
IF  I TST . EC.4.C0C I  GU  TC  250 
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10 

20 

30 


40 


50 


60 


SUBROUTINE  AERO 
IMPLICIT  REAL-8  (A-H.0-21 

COPHTN  /FRSTkP/  RHC HIE .P INFt  TFS.UFS. R . PRL  , 0, X'lA 

CCMHCN  /PGIYCC/  CPAIRLIol , CPA  I HH< 6 1 , EN41 RL (6 1 ■ ENA  I RH ( 6 ) .CMUA IR 1 6 1 
1CMLHE ( 6I.DIFHC 16 l tC-lUAR I 6 > , J IF AP 1 6  I ■ CPC J2L 1 6 1 . CPC02H 1 6 1 ■ FNC02L 16  I 
2ENC0?H(bl,CMUC02lolt  JIFCL'216) 

CCPMCN  /REF/  PKEFtTREF,AKUREF,RElNF 

CCPMCN  /STAG/  PSTAG, T STAG t PNC. UkST Ab.HSTAG.HE 

COPKCN  /THERPC/  PROP, VALUE 

CCPMCN  /TKPRTR/  T EMP I  101 1 1 TOTE < 101 1 , TP< 101 1 1 RTM, TB 
DATA  R0IN/4HRH0I/.PIN/4HPINF/ 

RHC INF  IS  IN  SLUGS 

PINF  IS  IN  PSIA 

PSTAG  IS  IN  PSIA 

PREF  IS  IN  PSIA 

CP  IN  FT**2/SEC*»2/OEG.R 

R  IN  FT«»2/SEC**2/DEG.R 

UFS  IN  FT/SEC 

T WALL .TREFtTSTAG  IN  OEG.R 

AMUSE F  is  IN  ( LB-SEC 1/FT**2 

MI717.67020G 

G-1.4D0 

IF  ITFS.EO.O.OrO.OR.TSTAG.EO.O.COOl  GO  TO  10 
G-IT&TAG/TFS-l.OUO  l*2.GD0/XMA**2*l.r  DO 
GO  TC  30 

IF  1TFS.EQ.0.UCCI  GO  TC-20 

1STAG«TFS*< 1 .000*1  G- 1 .COO  I /2 .00C*XMA**2 1 

GO  TC  30 

TFS«TSTAG/(l.GDC«IG-l.CUGI/2.bD0»XHA**2l 

ASC«G*R»TFS 

UFS-DSQRT I ASC*XPA**2) 

ir  I  PRCiP.NE . RC I M  GO  TC  AO 

RHC INF* VALUE 

PINF-RHOI NF»R*TFS/144.CC0 

PSTAG=P1NF/(I.ODO*I&-1.CUOI/2.000*XKA*-*2.0001»*|-G/IG-1.0DO»  I 
GC  7  C  60 

IF  CPRCP.NF.PINI  GO  TO  SO 
P1NF-VAIUE 

RHC INF *P INF* I44.QG/R/TFS 

PSTAG=pINF/(1.UD0*IG-1.CU0I/2.0D0»XPA**2.0D0I**(-G/IG-1.J00II 
GO  TO  60 
CCNT INUF 

pstag-value  ' 

PINF*PSTAG*I l.CCC«IG-l.CCOI/2.000*XPA**2.000)**C-G/IG-1.0D01 I 

RHCINF»P|NF*144.05/R/TFS 

CONTINUE 

HSTAG=TSTAG* (G/IG-1.000)*RI 
PPIf «RHCINF*UFS*«2 
TREf «UrS**2/R 

AMUR  EF  =  2.2  7Ct:0*PSa«T  I  TfiEF  I  **3.000/ ( 1 R EC*  198.6001*  1.00-08 

AMU! NF-2. 2 70. *0S0-< T I TFS I **3.000/1 TFS* 148.6001* l.OD-OO 

REINF>RHOINF*UFS/AMUINF 

RETURN 

END 


AERO 

1 

AERO 

2 

AERO 

3 

AERO 

4 

AERO 

5 

AERO 

6 

AERO 

7 

AERO 

8 

AERO 

9 

AERO 

10 

ACRO 

11 

AERO 

12 

AERO 

13 

AERO 

14 

AERO 

15 

ACRO 

16 

AERO 

17 

AC  RO 

18 

AERO 

19 

AERO 

20 

AERO 

21 

AERO 

22 

AERO 

23 

AERO 

24 

AERO 

25 

AERO 

26 

AFRO 

27 

AERO 

29 

AERO 

29 

AERO 

30 

AERO 

31 

AERO 

32 

AERO 

33 

AERO 

34 

AE  RO 

35 

AERO 

36 

AERO 

37 

AERO 

38 

AE  RJ 

34 

AERO 

45 

AFRO 

41 

ACRO 

42 

AERO 

43 

AERO 

44 

AEPO 

45 

AERO 

46 

AERO 

47 

AE  RO 

48 

AERO 

49 

AFRO 

50 

AERO 

51 

AERO 

52 

AERO 

53 

AERO 

54 

AE  RO 

55 

AERO 

56 

SUBROUTINE  AEROPT  <  X  .  V.N.  NPTS.  XAXL  BL  . NXTCHR.NX ACHR , YAXLBL t  NYTCHR  ,NAEPT 


1YACHR.NCALL.NCURVE.  JCIJRVE  I  AC  PT 

CCPMCN  /AXINFO/  IXAXIS. IVAXIS  AEPT 

COPMGN  /EXPORT/  IJLUG  AEPT 

CCMMON  /LFGLDL/  LGNO. ISLHL tlUNIT«KTITLE  AEPT 

CCPMCN  /TITLE/  LAUCH20I  AEPT 

0IPENS1JN  XAXL PL  lilt  YAXLBLI 1 1  AEPT 

DIPCNSION  XI5CU),  Yt  SCO  I  AEPT 

Dl  PC  NS  ION  XVALNG1  lilt  XTICIllIt  VVALN0I50I,  YTIC(SO)  AEPT 

DIPENSION  YLOG 1 9 1 1  YLUGTC  14)  AEPT 


1 

2 

3 

4 

5 

6 

7 

8 
4 

10 
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DIMENSION  XirG(9),  XUJCTC(9) 

DIMENSION  AI4»,  Pi 91 
DIMENSION  NHT  SI4 ) 

c. 

c 

JCALL«0 

IhTCNT-NPTSIl) 

10  JCAL  L* JC AL  L*  1 

IP1S*NPTS( JCALLI 
IF  CJCALL.GI.i)  GO  TO  130 
IF  (JCUfcVC.EC.il  IPTS*  . 

c 

C  INITIAL IEATI ON  OF  X  AND  V  AXIS  LIMITS  AND  LENGTHS 

C 

GC  TO  130, 40, 50. 701,  IXAXIS 
20  GC  TO  160,901,  I  VAX  I S 

C 

C  FIXED  KNOWN  LINEAR  SCALE— X  AXIS 

c 

30  XMIN-0.0 

XMAX*1.0 
XALNTH*5.0 
CO  TO  20 
C 

C  UNKNOWN  LINEAR  SCALE — X  AXIS 

C 

40  IJL0G*0 

CALL  MAX  I  X, N , XMAX ,NEXX, NEXNDX I 
CALL  KIN  I  X, N, XK  IN  I 
XALMh*5.0 
GC  TO  20 
C 

C  SEKI-LOG  SCALE— X  AXIS 

C 

50  IJLCG*1 

DC  60  1*1, N 

60  X(I)*AL0G10IX(II) 

CALL  MAX  I X,N , XMAX, NEXX, NEXNDX) 

CALL  MIN  (X,N,XMIN) 

XALNTh*5.0 
GO  TO  20 
C 

C  FIXEO  KNOWN  ANGULAR  SCALE  10-180  DEGREES!— X  AXIS 

c 

TO  XMAX* 109,0 

XK|N*0.0 
XALN1H*5.0 
GC  TC  20 
C 

C  UNKNOWN  LINEAR  SCALE— V  AXIS 

c 

40  ! JLQG*0 

CALL  MAX  I Y.N.YMAX.NEXY.NEXNCYI 
CALL  KIN  (Y,N,YW[NI 
VALN1H*6.0  " 

GC  TO  110 
C 

C  SEKI-LOO  SCALE— Y  AXIS 

C 

90  IJLOG*l 

CC  100  1  * l ,N 
100  YltlwALCGICIYI II) 

CALL  MAX  (  Y.N.YM  AX  ,  Nc  XV  ,  NeXNDY  I. 

CALL  KIN  t  Y,N, VM1N] 

VALNTH*10. 0/3. 0*2.0 

c 

C  SET  PEN  AT  ORIGIN  AND  FIND  THE  COORDINATES  OF  THE  LIMITS  OF  THE 
C  PLOT 

C 

110  IF  INCALL.GT.n  GO  TO  120 

CALL  PLOT  13.0,3.5,-31 


AEPT 

11 

AEPT 

12 

AEPT 

13 

AEPT 

14 

AEPT 

15 

AEPT 

16 

AEPT 

17 

AEPT 

13 

AEPT 

19 

AEPT 

20 

AEPT 

21 

AEPT 

77. 

AEPT 

23 

AEPT 

24 

AEPT 

25 

AEPT 

26 

AEPT 

27 

AEPT 

28 

AEPT 

29 

AEPT 

30 

AEPT 

31 

AEPT 

32 

AEPT 

33 

AEPT 

34 

AEPT 

35 

AEPT 

36 

AEPT 

37 

AEPT 

38 

AEPT 

39 

AEPT 

49 

AEPT 

41 

AEPT 

42 

AEPT 

43 

AEPT 

44 

AEPT 

45 

AEPT 

46 

AEPT 

47 

AEPT 

43 

AEPT 

49 

AEPT 

50 

AEPT 

51 

AEPT 

52 

AEPT 

53 

AEPT 

54 

AEPT 

55 

AEPT 

56 

AEPT 

57 

AEPT 

50 

AEPT 

59 

AEPT 

6* 

AEPT 

61 

AEPT 

62 

AEPT 

63 

AEPT 

64 

AEPT 

65 

AEPT 

66 

AEPT 

67 

AEPT 

68 

AEPT 

69 

AEPT 

70 

AEPT 

71 

AEPT 

72 

AEPT 

73 

AEPT 

74 

AEPT 

75 

AEPT 

76 

AEPT 

77 

AEPT 

78 

AEPT 

79 

AEPT 

SO 

AEPT 

81 
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120 

CALI  WHERE  1 XCRGIN, VORG INI 

AERT 

62 

XL |H*  XORG 1 N*  XALNTH 

AEPT 

63 

VL IH* YOKG  IMYALNTH 

AEPT 

84 

C 

AEPT 

as 

c 

SCALE  THE  X  AND  V  ARRAYS  AND  PLOT  THE 

CURVE 

AEPT 

86 

c 

AEPT 

87 

XRANGL*XMAX-XMIN 

AEPT 

88 

XSCPAC'XRASGC/XALNTH 

AEPT 

89 

YRANGC=YMAX— Y“ IN 

AEPT 

90 

YSCFAC*YRANGF/YALNTH 

AEPT 

91 

130 

00  140  1*1  , 1  p  T S 

AEPT 

92 

X <  1 1=  (  X I  1  I-XMINI/XSCFAC 

AEPT 

93 

140 

YUl*LYUI-YM|f*)/fSCMt 

AEPT 

94 

CALL  PICT  {Xlll.mi.il 

AEPT 

95 

DC  ISO  I-I.IP7S 

AEPT 

96 

CALL  SYMBOL  1 X ( I ) , Y I II ,0 . 13. JC ALL , 0. 0, 

-2) 

AEPT 

97 

ISO 

CONTINUE 

AEPT 

98 

IF  1JCALL.EQ.JCURVEI  GG  TO  170 

AEPT 

99 

JPTS*NP7  S ( JCAL  L* 1 1 

AEPT 

100 

DO  160  1  =  1  ,JPTS 

AEPT 

101 

INTCNT*1NTCNT*1 

AEPT 

102 

X(I)*XIInTCNT) 

AEPT 

103 

VdltTl  INTCNT  ) 

AEPT 

104 

160 

CONTINUE 

AEPT 

10S 

GC  TO  10 

AEPT 

106 

c 

AEPT 

107 

c 

DRAW  AXES  STARTING  AT  CRG1N  AND 

GOING 

COUNTERCLOCKWISE 

AEPT 

108 

c 

AE  PT 

1C9 

170 

CALL  PLOT  IXCRG1N, YCRC1N.31 

AEPT 

113 

CALL  PLOT  tXH»,Y0RGIN,2> 

AEPT 

HI 

CALL  PLOT  1  XL  I M.  YL  I 2  1 

AEPT 

112 

CALL  PLOT  (XLRG1N.YLIW.2) 

AEPT 

113 

CALL  PICT  ( XCHG1 N, YURGIN, 2  1 

AEPT 

114 

GG  TO  200 

AEPT 

IIS 

C 

AEPT 

116 

c 

DETERMINE  NUMBER  OF  CYCLES  IF  PLOT  IS 

A  LCG-PLOT 

AEPT 

117 

c 

AC  PT 

US 

c 

V  AXIS 

AEPT 

119 

c 

AEPT 

123 

160 

NDIVY*VMAX-YM!N 

AEPT 

121 

DX-O.GS 

AEPT 

122 

VTCINC*YALFTF/NDIVY 

AEPT 

123 

ICCUNT*NDIVY*l 

AEPT 

124 

GO  TO  370 

AEPT 

125 

c 

AEPT 

126 

c 

X  AXIS 

AEPT 

127 

c 

AEPT 

128 

190 

NOIVX*XMAX— XMIN 

AEPT 

129 

0V*t.05 

AEPT 

130 

XTCINC'XALKTF/NDIVX 

AEPT 

131 

ICCUNT-NOI VX+1 

AEPT 

132 

GC  TO  270 

AEPT 

133 

c 

AEPT 

134 

c 

X  AXIS  TICMAFKS  AND  LABELS  IFOR 

FIXED 

LINEAR  OR  ANGULAR  SCALES) 

AEPT 

135 

c 

AEPT 

136 

200 

GO  TC  1210, 2tC, 190, 2201,  IXAXIS 

AEPT 

137 

210 

DY-0.05 

AEPT 

138 

INT-ll 

AEPT 

139 

XVALUE'XMIN 

AEPT 

140 

XVAINC-O.i 

AEPT 

141 

XVALUE*X V ALUE-XV A 1 NC 

AEPT 

142 

GG  TO  230 

AEPT 

143 

220 

I  NT*  7 

AEPT 

144 

OY»O.OS 

AEPT 

145 

XVALIE*XHIN 

AEPT 

146 

XVA INC* 30.0 

AEPT 

147 

XVALLE*XVALUF— XVAINC 

AEPT 

148 

230 

00  240  J* l  ,  1  M 

AEPT 

149 

XVALUF*XVALUt  +XV A INC *C. 000005 

AEPT 

150 

XVALNJCJI «XVALUt *0.0 

AEPT 

151 

XTICIJI*XVALUr/XSCFAC 

AEPT 

152 
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CAll  PLOT  (XT IC  t  J )  . YQF G IN*DY  » 3 1 
CALL  PLOT  (XT  ICC J) , Y9RGIN-0Y.2 1 
240  CONTINUE 

CALL  PLOT  IXCRGIN,Y0RCIN*3) 


DV-0.4 
DX-0.2 
NDECPL-2 

IF  <  IXAXIS.EC.4t  NDECPL— l 
IF  (  IXAXtS.EC.4l  DX-0.1 
DO  2  50  J  =  1.IM 

CALL  NUMBER  (XT  I C( J l-OX , YORGI N-DV 
250  CONTINUE 

CALL  PLCT  ( XCRGI Nr  YORG INi  3 1 
CO  TO  360 
C 

C  X  AXIS  TICHARKS  AND  LABELS  (FOR  UNKNOWN  LINEAR  OR  LOG  SCALE) 


C 

260  DY-0.05 

ICCUNT- 11 

XTCINC-X6LNTF/1C.3 
2T0  XTCVAL=XORGlN-XTCINC 
DO  3C0  J  - 1  * IC CUNT 
XTCVAL-XTCVAL*XTCINC 
XT  I C ( J I- X TCVC  L 

XVALNOI J I  -XTC  VAL-X  SCF AC+XMIN 
FAC-O. C05 

IF  ( NEXNDX .NE .0 1  GO  TO  290 

PEX-NEXX*2 

FAC-5.0 

DO  2BC  H-l.MFX 
FAC-FAC/ 10.0 
280  CONTINUE 

290  IF  (XVALNOUI.LT. 0.0)  FAC— FAC 
XVALNUIJI-XVALNn JI*FAC 
CALL  PLOT  (XTCVAL. YCRGINADY.3 ) 
CALL  PLOT  (XTCVAL. Y0RG1N— 0Y>  21 
300  CONTINUE 

CALL  PLOT  (XCRGIN.YURG1N.3I 


AEPT  153 
AfcPT  154 
AEPT  155 
AEPT  156 
AEPT  15T 
AEPT  153 
AEPT  159 
AEPT  160 
AEPT  161 
AEPT  162 

(0. 11 . XVALNOI JltO.O.NOECPLI  AEPT  163 

AEPT  164 
AEPT  165 
AEPT  166 
AEPT  167 
AEPT  163 
AEPT  167 
AEPT  170 
AEPT  171 
AEPT  172 
AEPT  173 
AEPT  174 
ACPI  175 
AEPT  176 
AEPT  177 
AEPT  17S 
AEPT  179 
AEPT  183 
AEPT  1S1 
AEPT  182 
AEPT  183 
AEPT  184 
AEPT  185 
AEPT  136 
AEPT  187 
AEPT  183 
AEPT  189 
AEPT  190 
AEPT  191 
AEPT  192 
AEPT  19J 
AEPT  194 
AEPT  195 
AEPT  196 
AEPT  197 
AEPT  193 
AEPT  199 
AEPT  203 
AEPT  2C1 
AEPT  202 
AEPT  203 
AEPT  204 
AEPT  20b 
AEPT  206 
AEPT  2C7 
AEPT  2C8 
AEPT  2C9 
AEPT  213 
AEPT  211 
AEPT  212 
AEPT  213 
AEPT  214 
AEPT  215 
AEPT  216 
AEPT  217 
AEPT  218 
AEPT  219 
AEPT  220 
AEPT  221 
AEPT  222 
AEPT  223 


DX>0.2 

DV-0.4 

NDECPL-2 

INC-2 

IF  ( | XAX IS. EC. 31  INC-1 
IF  (NEXNDX. EC. 01  NOECPL-NEXXM 
DC  310  H- 1 t ICCUNT • INC 

CALL  NUMBER  IXT1 C( MJ-OX, VORGIN-OV.O. It.XVALNOIM) ,0.0. NDECPL I 
310  CONTINUE 

IF  ( I XAX I S .NE .3)  GO  TO  350 

DX-0.05 

DY-0.05 

00  340  J-1.NC1VX 
DO  320  K-2,9 
XLCGIKl-K 

XlCGTCIKl-ALOGIGIXLOGIKI I -XTC  IN'C+XTl  Cl J) 

CALL  PLOT  (XLCGTC(K)i YPRG  I N . 3  I 
CALL  PLLT  (XLCGTC(K). YCKG1N-CV.2) 

CALL  PLOT  IXLCGlC(Ki-DX.V0FSIN-(UX»0.2lr 31 
CALL  WMF  RE  lAIKl.RIKl) 

320  CCNT (HUE 

DO  330  K-2  «8t  2 

CALL  NUMRER  I  AIK  1 , B( K 1 ,0.1 *XL0G(K1 .0 .Oi-l 1 
330  CONTINUE 
340  CONTINUE 
350  CONTINUE 

CALL  PLOT  (XCRGI Nr YORG IN. 3  I 
C 

C  ORAN  TICHARKS  ON  Y-AXIS  ANO  LABEL  ACCOROINGLV 
C 

360  IF  I IYAXIS.F0.2)  GO  TO  1B0 
DX-0.05 
ICCUNT- 1 1 
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VTCINC-YALNTF/IO.O 
370  VTC VAL  «Y0RGI N-Vl  C I  NC 

DC  42u  J-l.KCUNT 
VTCV Al*  YTC  VAL ♦ YTC I NC 
VTICt JI-YTCVAL 

YVALNOI  Jl  -YTC VAL-V SCFAC *VM1N 
FAC-0. 005 

IF  INEXN0V.NE.0)  CO  TC  390 

HEJ-NEXY+2 

FAC-5.0 

00  3 GO  Ms  1 . ME  X 
F  AC- f  AC  / 10  .0 
380  CONTINUE 

390  IF  (YVALNOIJ).LT.C.OI  FAC— FAC 

IF  (YVALKOIJI.OT.IOJO.O.CR.YVALNOIJI.LT. >1000. 01  CO  TO  A 00 
YVALNOI J  > -YVALNOI J I *F AC 
CO  TO  MO 
400  FFAC= 1.0 

IF  (YVALNOIJI.LT .0.01  FFAC— FFAC 
ITRUNC-YVALNCI Jl 
YVALNOI J I -  I TRUNC  *FFAC 
410  CALL  PLOT  ( XGRG1 N*OX , YTCV AL. 31 
CALL  PLOT  (XCRGIN-0X.YTCVAL.2I 
420  CONTINUE 

CALL  PLOT  ( XCRGI N, YORC IN.  3  J 

DX-0.75 

DY'0.10 

NGECPL-2 

INC- 2 

IF  I 1YAXI S.E0.2)  1  NC  =  1 
IF  INEXNOY.FO.OI  NDECPL«NEXY*1 
DO  430  P-1.ICLUNT.INC 

CALI  NUMBER  ( XOF  Gl  N— OX ,  VT  1C  I M  I— OY  .0.  1 1  .YVALNOI  Ml  .  0 .0  .NOECPL  1 
430  CCNTINUC 

IF  ( IVAXIS.NE.2I  GO  TC  470 

0V-0.05 

DX-0.05 

DO  460  J-l.NCIVY 
DO  440  K-2.9 
YLGGIKlsK 

VICGTC  IK  >»  A10G10<YL0G<I<I  1-YTC  INC*YTICI  Jl 
CALL  PLOT  IXCRC1N. YLOGTCIKl.il 
CALL  PLOT  (XCRGIN-0X,YLCGTC<KI,2I 
CALL  PLOT  <XCRGIN-<DX*0.2I,YLOGTCIKI-DY,3> 

CALL  WHERE  IAIKI.BIKI I 
440  CCNTINUE 

00  450  K-2,8.2 

CALL  NUMBFR  < A <K J , Bl K I ,0. l.YLOGIK I ,0.0 1 I 
450  CCNTINUE 
460  CCNTINUE 
470  CCNTINUC 

CALL  PLOT  I  XCRGI N. YORG IN, 3 1 
C 

C  LABEL  THE  X  AND  Y  AXES 
C 

HGT-0.2 

DX-1.25 

DV-1.0 

XLBL- 1 1 XCRGI K-XALNT  H/ 2.0 1 )-l I <  3.0-HGT/4. 0  I -NXACHR I *0 . 5 1 
CALL  SYMBOL  <  XLBL , YORG I N— OY.HGT .XAXLBL.U.O.NXTCHRI 
CALL  PLOT  I  XCRGI N, YORG IN, 3 1 

YLBL-1 IVOR GIN* YALNTH/ 2.0  I  I- 1 <  < 3.0-HGT/4.0 I -NY4CHR 1*0.51 
CALL  SYMBOL  (XOKGIN-OX, YL BL.HGT, Y AXl DL ,90.0, NY TCHR1 

c 

C  PICT  THE  LEGENU 
C 

IF  (LCND.NE.il  GO  TO  480 

DLX-0.30 

OLV— 0.30 

CALL  LCGEND  C JCURVE.XLIM.YLt Ml 
C 


AEPT  224 
AEPT  225 
AEPT  226 
AEPT  227 
AEPT  228 
AEPT  229 
AEPT  230 
AEPT  231 
AEPT  2 32 
AEPT  233 
AEPT  234 
AEPT  235 
AEPT  236 
AEPT  237 
AEPT  238 
AEPT  239 
AEPT  240 
AEPT  241 
AEPT  242 
AEPT  243 
AEPT  244 
AEPT  245 
AEPT  246 
AEPT  247 
AEPT  248 
AEPT  249 
AEPT  250 
AEPT  251 
AEPT  252 
AEPT  253 
AEPT  254 
AEPT  255 
AEPT  256 
AEPT  257 
AEPT  258 
AEPT  259 
AEPT  260 
AEPT  261 
AEPT  262 
AEPT  263 
AEPT  264 
AEPT  265 
AEPT  266 
AFPT  26T 
AEPT  268 
AEPT  269 
AEPT  270 
AEPT  271 
AEPT  272 
AEPT  273 
AEPT  274 
AEPT  275 
AEPT  276 
AEPT  277 
AEPT  278 
AEPT  279 
AEPT  280 
AEPT  281 
AEPT  282 
AEPT  283 
AEPT  284 
AEPT  285 
AEPT  286 
AFPT  287 
AEPT  288 
AEPT  289 
AEPT  290 
AEPT  291 
AEPT  292 
AEPT  293 
AEPT  294 
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c 

PICT  THE  SUD-LABEL 

AEPT 

295 

c 

AEPT 

296 

460 

IF  llSLBL.AE.il  GO  TO  490 

AEPT 

297 

CALL  SUBLBL  IXCRGIN.VORGIN) 

AEPT 

298 

C 

AEPT 

299 

c 

PICT  THE  TITLE 

AEPT 

300 

c 

AEPT 

301 

690 

IF  IKTlTLE.NC.il  CO  TO  500 

AEPT 

302 

DV— 1.0 

AEPT 

303 

0X=— 2.0 

AEPT 

304 

HGT-O.l 

AEPT 

305 

CALL  SYMBOL  1 X0RG1 N*DX , YORGI N« OY,HGT ,L ABE L , 90.0, 801 

AEPT 

306 

C 

AEPT 

307 

C 

FIAO  THE  NEXT  ORIGIN  OR  ENC  THE  PLOT 

AEPT 

308 

c 

AEPT 

309 

500 

IF  INCALL. EO.NCUPVEI  GC  TO  510 

AEPT 

310 

CAU  PLOT  IXALNT H*5»0, YORG 1 N,—  31 

AEPT 

311 

RETURN 

AEPT 

312 

c 

AEPT 

313 

.510 

CALL  PLOT  CXAINTH*5.0, YORGIN,— 61 

AEPT 

314 

RETURN 

AEPT 

315 

ENO 

AEPT 

316 

BLCCK  OAT  A  BLOA 

IMPLICIT  AEAl»8  (A-M.O-ZI  BL DA 

CCMNCN  /OUTPUT/  CFmEDG.CFW INF  .CFXEDG  ,CFX I NF.CHEDGE .CHINF  ,  AMACHE .  DEtlLOA 
IL.CU.OUlNF.UWOOMOtS.STEOGEi&TINF.TAUETA.TAUX.OELSTX, DELPHI  ,ThC TAX, BLOA 
2THEPH1  BLOA 

CCMHCN  /POLVCC/  CPAIRLI6I  ,CPA  I  RHf  6  I,  ENAIRLI6.lt  ENA  IPHI 6 1.CMUA1R  161  ■  BLCA 
ICKUHEI 6I,DIFHE(6I tCMUAR ( 6 1 ,DI F «R I  6 1 .CPCU2L 16) , CPC02HI 6 1 , ENC02L 1 6  I ,Bl DA 
2FNC02HI61 i CHUC02 (61.QIFCC216I  BLOA 

CATA  CFWE DG.CFWINF.CFXECC.CF XI NF.CHFOCE .CHINF. APACHE tOEL.OH. OWINF .BLCA 
lQWCQWO, S  .  STECCE  .  6  T  t  NF  .  T  AUE  T  A  ,  T  AUX  .DLLSTX, DELPHI  .THE-  TAX,  THFPH 1  /ZO  *CBL  OA 
2.010/  PLOA 

DATA  CPA IRL/6. 03517970*3, -9.65C91 250-6, -7. 30226750-4, 1.7)22 7BZ0-6, BLOA 
1-9 .76574380- 10.1 .74651 790- I  3/  BLOA 

CATA  CPA1RH/5.9C2U003, 3 . 77C 72D-C1 • 9.646490-05, -3. 537690-08 , 3 . 485678LC A 
10-12.-1.115020-16/  BLOA 

DATA  CPCU2L/Z.3317627U*2.  7,325  70620*1.-1  . 34283 3U- 1 , 1 . 3090637D- A.-66L0A 
1.C572879P-8.1.C53 17630-11/  BLCA 

DATA  CPCU2H/ 1.32 69970*4,1  .0A99 1950*1. -3. 476362BD-3.6. 1 48955R D-7, -5RL0A 
1.5669930-1 1.2. 0332270-15/  BLOA 

DATA  CMUA 1R/1 .660660-01, 6. 969360-03, -l .690790— 06, 2. 3759D-10.-1 .782BLOA 
I62C-14,5.C725r-15/  BLOA 

DATA  CMUHE /7. 20440-0 1,7. 067990-03 ,-l. 53630-06. Z. 805 l 30-10, -Z.ZB363BL0A 
K>-16, 6. 740970-19/  BLOA 

DAI A  CHUAR/2 .631 560-01 .8.613610-03,-1.666220-06,3 .1662 70-10,-2.6 7 8BL0A 
1970-16,7.106970-19/  BLOA 

DATA  CKUC02/-  7.BI93191  C-2 , 6.  77 32592P-3,- 1  .72869110-6,  3 .87001  39D- 1LBL OA 
1,-5.13068560-16,2.75916260-18/  BLOA 

DATA  C I FHE/- 1.988:30-01,2. 316930-0 3, 2. 636370-06, -6. 766  110- 11  .'-1.OC9L0A 
131 2D— 16,6.  796280-  19/  BLOA 

CATA  D1FAR/-6.3902  50-02,6.67800-06, 1. 2608 10-06,- 1 . 028320-10 , 7. 391BL OA 
1820-15,-2. 160610-19/  BLOA 

DATA  0IFC02/1 . 30566960-2, -5. t2 157330-5,1. 6 1786920-6, -3. 85557 630- 103L0 A 
1,6.84051770-16,-6. 74033960-18/  BLOA 

DATA  ENA  I RL/6. 03 5 179  70*3, -4. 725456  20-6, -2 .63608670-6, 6. 33069550-7, BLOA 
1-1.9  5314870-10,2.91086  310-14/  BLOA 

DATA  ENAIKH/ 5.9028003,1  •  885360-01 , 3. 21 5490-05,-B. 84422517-09, 6.97 13BL0A 
16C- 13,-1.856370- 17/  BLOA 

DATA  ENC02L/2 . 33 1 76270*2 , 3 .664 354 10*1 , -6 .6761090-2, 3.2726590-5 ,-l  .BL OA 
121165750-6,1.7551770-12/  BLOA 

DATA  ENC02H/ 1.32 d  79 70*4, 5. 2695970*0, -1.1 586960-3 , I.S372 3890- 7,-1. 1BLDA 
11379860-11,3.3887110-16/  BLCA 

ENO  BLOA 


1 

2 

3 

6 

5 

6 

7 

8 
9 

10 

11 

12 

13 

16 

15 

16 
17 
13 

19 

20 
21 
22 
23 
26 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
62 
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SUBROUTINE  BLUNT  I 

BLU1 

1 

IMPLICIT  REAL*8C A-M.0-21 

BLU1 

2 

REAL* A  NOSE 

BLU1 

3 

CCPHCN  /BLUNT/  /O U CO  1 , XB 1 100 1 ,RB( 1001 ,PE B( 100 I.UE0I100 1 ,TEBI 1001 

•  BLUl 

4 

1XMBI 100 1 • NBLUNT, N* EDGE .NkPLHB.NbLPL 1 

BLU1 

5 

CCHMCN  /EOCE/  UfcOG . 1 EUG , WE  DC , PECO , OT EGnX .0TEG3W.DUFGDX , DUEGDW.DVE GBLU1 

6 

IOXiOVEGOm  1  nPEG0X,CPEGnh,[)2POh2  .PHOEl'G,  AMUFDG.RUHUFG 

BLUl 

7 

CCPHCN  /FkSTRK/  PriG  INF  ,  P  1 NF,  TF  S.UES.  R  ,PRL  >  G.  XNA 

BLUl 

8 

CCPHCN  /GECM/  ALPHA, TH(:T»C,NC-SE,«NOSF,WLST  ,X,XX,WX 

BLUl 

9 

CCPHCN  /INJECT/  njCT,NUINJ,G£S?.CClL.HASTRN 

BLUl 

10 

CCPHCN  /INTEGR/  I  £  ,  1  K ,  KENCl , K £ND2 ,  KLX ,  KK,  L  ,  NOLNT  1  ,  [NP ,  KPR  T ,  L PRT  , KPRBL U1 

11 

I.LPk 

BLUl 

12 

CCPHCN  /POLYCU/  CPAIRLI6I , CP A I RH( 6 ) , ENA 1 R L 1 6 ) . ENA  I KH (6 1 . CMUA I R 1 6 1 

<HLU1 

13 

1CPUHC  (6  1 . 0 1  HIE  (6),CMUARt6l  ,01 F  «P  <  61 ,  CPCC2L 1 6 1  •  CPC02HI  6 1  ,ENC02L(  6  1 

.BLUl 

14 

2ENC02HI 61 ,  CP.UC02  I6),01FCC2<6) 

BLUl 

IS 

CCPHCN  /PI  GTS/  PL  IT .KPLCT 1 41 «  LPLOT 14 1  , KPR  F  L 1 41 .LPRFL 1 4 1 ,NPTS 14 1 2) 

BLUl 

16 

CCHHON  /STAG/  PSTAG . T S TAG , PNC , QbST AG ,HST AG ,ME 

BLUl 

17 

CCPHCN  /TRANSN/  KIR ANS .KCNSE T , X IE ,Ch I l 1 10 1 1 , CH IHAX, XBAR 

BLUl 

18 

CCPHON  /XSCLVE/  XSTAI 1001 .OXPAX.DXtOXJLOt OXltNSOLVE 

BLUl 

19 

DIPENSION  2ST  A  ( 1001 •  XPLCT 141 

BLUl 

20 

NPLOT-4 

BLUl 

21 

CP-G/IG-l .000  I *P 

BLUl 

22 

IF  IL.GT.l  )  GO  TO  160 

BLUl 

23 

RE AO  (101  NBLUNT 

BLUl 

24 

DC  10  1-1. NBLUNT 

BLUl 

25 

READ  1101  2BI  1  I.XBl  II.Rbl  1 I.PEBI 1 1 

BLUl 

26 

XBII l*X8l 1 l*RNOSE 

BLUl 

27 

2BI1  l«/OI  1  l*RNGSE 

BLUl 

28 

RBI  1 1 >*RNGSE 

BLUl 

29 

10 

CCNTINUE 

BLUl 

30 

NftLPL 1*NBLUNT*1 

BLUl 

31 

READ  1101  NkCCGE 

BLUl 

32 

NhPLNb*N'HL  LNT ♦NPEOGE 

BLUl 

33 

DC  20  I*NCLPL1 .NwPLNB 

BLUl 

34 

READ  1101  261 1 I.XQI 1 | ,R0( 1 I.PEBII ) 

BLUl 

35 

XBI | )*X£I I }*RNOSE 

BIU1 

36 

ZBIlWBI 1 MRNOSfc 

BLUl 

37 

RBt 1 )‘KP | | »*PNOSE 

BLUl 

38 

20 

CCNTINUE 

BLUl 

39 

c 

BLUl 

40 

c 

SAVE  THE  VALUES  XSTAC KONSET 1 , XST A< 1 NJCT 1 , XSTA I NOIN J 1 , XSTAI L PLOT  1 

BLUl 

41 

c 

BLUl 

42 

X1RNSN*XST  AIKCNSET 1 

BLUl 

43 

XINJ-XSIAI  IN JC  T 1 

BLUl 

44 

XNCINJcXSTA(NCINJ) 

BLUl 

45 

DC  40  1 =1,4 

BLUl 

46 

IF  ILPLPTI ll.EO.OI  GO  TO  30 

BLUl 

47 

XPLOT (II «XSTAI LPLOTI 1  I  1 

BLUl 

48 

GC  TO  40 

BLUl 

49 

30 

NPLCT-l-l 

BLUl 

50 

GC  TO  50 

BLUl 

51 

40 

CCNTINUE 

BLUl 

52 

c 

BLUl 

53 

50 

NSGLV1*NSC'IVC 

BLUl 

54 

NSGLVE-NSOLVE«NW£OGE 

BLUl 

55 

1-NBLPL1 

BLUl 

56 

J-l 

BLUl 

57 

K«i 

BLUl 

58 

*3 

CONTINUE 

BLUl 

59 

IF  II .GT.NWPLNBI  GO  TO  TC 

BLUl 

60 

IF  IXBIll.LT.XSTAIJi)  GC  TO  BO 

BLUl 

61 

TO 

2STA(KI*XSTA(  J» 

BLUl 

62 

4-JM 

BLUl 

63 

X«K*1 

BLUl 

64 

IF  IK.GT.NSOLVEI  GO  TO  90 

BLUl 

65 

IF  1  1 .GT.NWPLNBI  GO  TO  TO 

BLUl 

66 

IF  I4.GT.NSULVII  GO  TO  BO 

BLUl 

67 

GO  TO  60 

BLUl 

68 

SO 

2S1AIKI*XDIII 

BLUl 

69 

1*1*1 

BLUl 

70 

K*K*  1 

BLUl 

71 
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90 

C 

c 

c 


100 

c 

110 


120 


130 

140 

130 

160 

170 


•  *  f “<  G-l • 0D0)/G 1-1 .0001 1  * 
J>**2) 

•  UEttIJItTEBIJI i XMBI J  1 


180 


190 


IF  (K.GT.NSOLVE)  GO  TO  90 
IF  U.GT.NMPLNdl  GO  TO  70 
IF  (  J.GT • NSOL V 1 I  GO  TO  BO 
GO  TO  60 
CONTINUE 

DO  110  N= 1 .NSCLVE 

RESET  THE  VALUES  CF  KCNSET , INJCT ,NOI NJ  AND  L PLOT  1 1 ) , I  *  1 ,4 

IF  I ZSTA(N).EC.XTRNSN)  KCNSFT'N 
IF  (ZSTAIM.EG.XINJ)  INJCT-N 
IF  IZSTA(N).tC.XNOlNJ)  NCINJ=N 
00  100  I'l.NPLCT 

IF  IZSTAIN).LC.XPLOT(I))  LPLCT(1)*N 

CONTINUE  * 


XSTA(N|cZSTA(M 
DO  120  I" 1 .NSCLVE 
WRITE  (6,220)  I , XSTAI I ) 

CONTINUE 
WRITE  (6,2301 
WRITE  16,240) 

WRITE  (6,200) 

DO  130  J-l.NWPLNB 
PEB( J)>PEB( J)*PINF*144.0C0 
*PP( Jl>( 2.000/ (G-l. 000 )•( IPFBI JI/PEBI1II 
lO.SOO 

TEB<J)>TSTAG/1 1.003*1  G-U0GO)/2.00G*XMB( 
t!EB(  J)*OSORT  (2.603>CP*ITST  AG-TEBI J ) )  ) 
WRITE  (6,210)  J,ZB(J),XP(J),RB(J).PED(  J) 
CONTINUE 

IF  (TEBI 1  I .GT .20U0.0C0)  GO  TG  140 
CALL  PGLV  I1EB(1I,S,ENAIRL,HE) 

GO  TO  ISO 

CALL  POLY  (TFBII), 5,ENA IRH ,HE I 
HE*Ht*TEB( 1 ) 

WRITE  (0,2301 
CONTINUE 

IF  (X.LT.XBI3I)  GC  TO  190 

J«0 

JoJ*l 

IF  (X.GT.XB(J))  GO  TO  170 
IF  (J.LT.3)  J=3 

IF  IJ.6T.INrPLNP-2I>  JcNhPLNB-2 
CALL  INTFRS  ( X , X PI  J-2 1 , X» (  J- 1 )  , XP ( Jl  , XB( 
1J-1I.PE0I JI,PEB(J*1),PEB( J«2), PEOGI 
CALL  FC5  IX,XP(J-2),Xh(J-l )  ,  XP  (  J  >  ,  XB  I  J*1 
lliUEBIJ) ,UEb( J*I I.UtBI J«2) .DUFCDX) 

CALL  EDS  IX,XBIJ-?I,XB(J-1 ) ,  XP  ( J)  ,Xb  I  J»1 
ll.TERIJ) .TCP  I J41 l,TCH( J*?(,PTECCXI 
IF  (X. TO. 0.0001  PE  1)G«PEB(  1  I 
TECC*TSTAG*(  PFL)f./PE3(  1 1 )  ••  (I G- 1 .0001  /G) 
UEOG>OSORT (2.GrC*CP*(TST«G-TEDGI ) 

RKOE  OG*P  E  DG/P.  /  T  t  Ou 

DPEGDX— RHOECG*UECG*CUEGCX 

OVEGOX -0.000 

OPEGOh=O.ODO 

DTEGOW=G.Oro 

DUECCW-0.000 

0VEGDW=0.000 

02POW2*O.OCO 

VECG'O.ODO 

RETURN 

CALL  INTERS  I  X.-XB  (  31  ,-Xl) (  2)  ,XBI  1 1  ,XB( 21 
1),PEB(2),PEP(3),PEDG) 

CALL  FOS  (X,-XU(3),-XBI2),X0I1},XB(2),XB 
l,UEBI2l,UFri(3l .UUEGDX I 
CALL  FOS  (  X.-X1M  3),-XOI2),XBI  I  I.XBI2  I.XB 
1»TEBI2),TFB(3I,D1 CGOX I 
GO  TO  180 


J*ll ,X0tJ*2l,PSB(J-2),PCB 
>,xa<J*2>,UEPIJ-2l,UES(J- 
>,X0(J*2),TEPIJ-2I,TEBIJ 


•  X8{ 3 1 ,PEB( 31 ,PEB(2I ,PEB( 
(3),-UFB(3l,~UEB(2),UEB( I 
I3),*TEBI3I,*TE0I2I,TEB(1 


BLU1 

siui 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

SLUI 

BLUI 

BLUI 

BLUI 

BCU1- 

BbUi 

BLUl’ 

♦BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLLI 

BLUI 

BLUI 

BLUI 

BLUE 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

(BLUI 

BLUI 

1BLU1 

BLUI 

1BLU1 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

BLUI 

IBLUl 

BLUI 

IBLUl 

BLUI 

IBLUl 

BLUI 

BLUI 

BLUI 


72 

73 

74 

75 

76 

77 

78 

79 

80 
61 
82 

83 

84 

85 
8b 
87 
B8 

89 

90 

91 

92 

93 

94 

95 

96 

97 
9B 
99 

103 

101 

102 

103 

104 

105 

106 
107 
103 

109 

110 
111 
112 

113 

114 

115 
lib 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 


193 


AEDC-TR-75-55 


C 

c 

200 

210 

220 

230 

240 


BLUI  143 

i?*' lMI  *  BX,5HI91 1  >  ft  m.WXfil  I )  .UX.5HRBCI  >,  10X.6HPEBI  [|,  JOBLUl  145 

1X.6HUEUI I  I ilOX«6HTEd( I  I  . 10X .  6HXMBI II/)  BLUI  144 

FCRMAT  ItlX, I3.7E16.61  BLuJ  {?? 

FCRMAT  I26X, 13.6X.F9.6I  ■>!  Ill 

FORMAT  II  KOI  BI  yl 

FORMAT  I26X.20HPLUNT  CCNE  EDGE  CAT A/ I  BLUI  150 

£,lD  BLUI  151 


C 

c 


10 

20 

30 

40 


50 


SUBROUTINE  BLUNT  2  Cl S  NT  I 
IMPLICIT  REAL*B  IA-H.0-21 
REAL*8  NOSE 

COMMON  /EDGE/  UEOC .TEOG. VECG • PEDG.D1 EGDX . C TcGOtf  .OUEGOX .OUEGOW. 
10X*DVEG0w,CP£COX,0PEGOh,U2P01»2,KH0EL'G.  AMUEDG.ROHUEG 
COMMON  /FRSTNM/  RhCJ I NF , P I NF, TF S.UF S, P , Pfi L ,G, XXMA 
CCMNCN  /Gb CM/  ALPhA.THETAC.NCSE.RNOSE.WLST.X.XX.NX 
CCPMGN  /INTECR/  1  £ .IM.KENP ,K END2.KLX ,K , L .NBLNT 1 , | NO. K PRT ,LPRT • 
RPR 

CCPMCN  /OLD/  TCL0I61) .VCLDI61 I ■CV0LDI61) 

COMMON  /XSGLVE/  XSTAI IOC  I . DXMAX. DX.OXCLD .0X1 .NSOL VE 
OIMENSIUN  MUt2l,  H I  1 2 1 2  )  >  Cll  2,2),  J(l2i2l.  VSUMI  2  )  «  PSUMI2I 
10SIMI21,  PHI  SUM  I  2 1  f  VNSUMI 2)  «  PNSUMI2),  PhNSUM 1 2 1 1  RONSUMI 2 1 , 
22 It  PNNSUM | 2 ) 

DIMENSION  APS! 15)  *  AREOSIIS),  ACF  PHI  1 1 5) •  AVSII5) 

xNn  *x 

PI“OARCOS 1—1 .000 1 

IF  IALPHA.-E0.C.C0G1  KLX«7 

K-2 

XNIT«BODV  FIXFD  SURFACE  01STANCE 

GUNCTRcfjouv  FIXED  SURFACE  DISTANCE  TO  THE  SPHERE  CCHt  JUNCTURE 

XJONCT* BOUT  FIXCD  AXIAL  CISIANCE  TU  THE  SPHERE-CONE  JUNCTURE 

X»BC0V  F1XEU  AXIAL  DISTANCE 

X JUNCT* ( 1 • OUO-DS I Nl THE IAC I l*RNCSE 

GUNCTR*RNOSE*l  PI /2.CD0-THETAC t 

IF  IX.GT.oUNClR)  GO  TO  10 

XM'COO-DCOSIX/FNOSEI 

GO  TO  20 

X-(X-GUNCTRI*OCOS(TKETAC)4XJLNCT 

X-X/KNOSE 

CCM  INUE 

AXIAL  01S1ANCE  ANC  FOURIER  CCEFFICIENTS  ARE  READ  FROM  UNIT  10 


BLU2 
BLU2 
BLU2 
DVEGBLU2 
BLU2 
BLU2 
BLU2 
KPR.BLU2 
BLU2 
BLU2 
BLU2 
.  RHBLU2 
XXSIBLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
RLU2 
BLU2 
BLU2 
RLU2 
BLU2 
BLU2 
RLU2 
BLU2 
BLU2 
BLU2 
BLU2 
8LU2 
8LU2 
BLU2 
BLU2 
BLU2 
RLU2 


READ  1101  XS. APS  «  AKMOS.ACF  PH I .  AVS 
IF  IX.GT.XS)  GO  TO  40 
BACKSPACE  1C 
BACKSPACE  10 
GC  TO  30 

READ  110)  XS.APS.ARHOS.ACFPHl.AVS 

IF  IX.GT.XSI  GO  TC  40 

00  50  J»I.KLX 

Af J,2) EAPS { J I 

6!J.2I>ARHGSIJI 

Cf J.2I-ACFPHI < J) 

Dl J«2)=AVS IJ | 

CONTINUE 
XXSI2I»XS 
BACKSPACE  10 
BACKSPACE  10 

READ  (lul  XS.APS.ARHOS.ACFPHI.AVS 
00  60  J-l.KLX 
A I J. 1 1 >APS (J 1 


BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
RLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BLU2 
BL  U2 
BLU2 
BLU2 
BLU2 
8L  U2 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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BIJ,1)=APHCSUI 
C<J,l)=ACFPHl<JI 
-  DtJ,l  >  =  AVS(J) 

60  CONTINUE 
XXSIll=XS 
F.H*M-1 
APHI=O.ODO 
DEG-C.CDO 

IF  IKEND.EQ. 1 .Oft. ALPHA. EC. 0.0C01  CO  TO  70 
OEG=180.0D0/CFLUAI (KENC-1 1 
APHI=-f)EG 
70  CONTINUE 

KKL=XLX-1 
DO  80  1=1, K 
80  APH  =  APH I  ♦  DE  G 

PHI=APHI*IPI/1BG.ODO> 

c 

C  FOURIER  SERIES  ARE  USEO  TO  CCPPUTE  THE  EDGE  PROPERTIES 

DO  110  1=1, H 
VSUMd  1  =  0.000 
PSUMI 1=0.000 
RHCSUMt 11=0.000 
PHI  SUM!  1 1  =  0.000 
VXSUMf I ) =O.ODO 
PNSUMII 1=0 .000 

Phhsum  n  =  c.ooo 

SGKSUMl I )=C.CCQ 
PHNSUMI I  1  =  0. LOO 
DO  90  J=1 , KLX 
'  2=DFL0AT(J 1-1.000 
suKi=AtJ,i  i»ncns< z=phi i 
psuk  hi  =psup  ( 1 1  +  sum  i 
SUP2=H< J, I  l» DC  OS  I Z*0H1 I 
RHCSUHt I IcftferSUMI I l*SUP2 
SUP4=0I J, I )*DCCS I Z  *PH  I  I 
VStiHI  I  l  =  VSUMI  I  )  *  SUH4 
SUP!>=— A  (  J  ,  1 1  =  7  =  PS  IM  7»PH!  1 
PASUHI I  1 =PNSUPI 1 1  * SUM5 
SUPfc=-H(  J,  I  l»Z*r:SIM  Z»PH!  I 
PCNSUMl 1 1 xRCNSUP I  [»*SU“6 
SUH8  =  -DI J, I  l  =  Z*OM\<  Z  =  PH1 I 
VNSUM  I  )=VNSUP(  ! ) ♦ SUP  H 
SUK9=-AU,  I  l»Z»  =  2  =  nCl)SI  Z  =  PHI  1 
PNNSUMt  I  l«PNNSUP(  I  I  ♦SUPS 
97  CCMINUE 

DC  100  J*1 .K  KL 
H=CF  LGAT ( J I 

SUK3=CC  J,  I  1*0SIMH*phI  I 
phi  Sum i i i  =  ph i sup 1 1 1* Sup3 
SUPT=CI J, 1 l  =  h*DC  CS(H=PM 1 
PHNSUHI I loPHNSUM I l*SUP7 
100  CONTINUE 
110  CCM1NUE 

IF  IK.GT.l 1  CC  TC  120 
PHI  SUM  I  MM  1=0. COO 
PHISUM(M|=0.000 

bcnsu.hikmi=o.ouc 

RCXSUM(MI=c.OCO 
PKSUN(MM) =o.cco 
PNSUMtM|=O.CCO 
120  CONTINUE 

IF  (MM.LQ.MI  GC  TG  130 

c 

C  INTERPOL AT  I  ON  FOR  EDGE  PROPERTY  VALUES  AT  X 

c 

FAC=(X-XXS|MMII/IXXS(M|-XXS(PP|) 

GO  TO  1 AO 
130  FAC=  C.COO 

160  PFCG=I  PSUM(MM)4F  ACMPSUHIM l-PSUM IHM1 J  l/G/XXMA**2 

PECC=P£DG=RH01NF  *UFS*  =  2 


8LU2 

58 

BLU2 

59 

BLUE 

60 

BLU2 

61 

BLU2 

62 

BL  U2 

63 

BIU2 

64 

BLU2 

65 

BLU2 

66 

BLU2 

67 

BLU2 

68 

BLU2 

69 

8LU2 

70 

BLU2 

71 

BLU2 

72 

BLU2 

73 

BLU2 

74 

BLU2 

75 

BLU2 

76 

BLU2 

77 

BLU2 

78 

BLU2 

79 

BLU2 

BO 

6LU2 

61 

BLU2 

82 

BLU2 

63 

BLU2 

64 

BLU2 

B5 

BLU2 

86 

BLU2 

87 

BLU2 

88 

BLU2 

89 

BLU2 

90 

BLU2 

91 

DLU2 

92 

BLU2 

93 

BLU2 

94 

BLU2 

95 

BLU2 

96 

BLU2 

97 

6LU2 

98 

BLU2 

99 

BLU2 

100 

BL  U2 

101 

BLU2 

102 

BLU2 

103 

BLU2 

104 

BLU2 

105 

BLU2 

106 

BLU2 

107 

BLU2 

108 

6LU2 

109 

BLU2 

in 

BLU2 

in 

BLU2 

112 

BLU2 

113 

BLU2 

114 

BLU2 

115 

BLU2 

1 16 

ALU2 

117 

BLU2 

110 

BLUZ 

119 

8LU2 

120 

BLU2 

121 

BLU2 

122 

6LU2 

121 

BLU2 

124 

BLUZ 

125 

BLU2 

126 

BLU2 

127 

BLU2 

128 
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JtHCE0G>RHOSUM|HM|»FAC*(RHOSUM|KI-RH(1SUM(HK|| 

rmgedg«rhcieoc»fhcinf 

TEDG-PtOC/P/RHGECG 

V«VSUM(HM) 4FAC«IVSUM<  P)-VSUM(HN) | 

CE A-PH1  SUM  I MM  )  4F  AC  * «  PHI  SUM  (MI-PHI  SUM  I  MM|  I 

UECG»V*0CDSICFA1»UFS 

VEDG=V*DS  INI CF A I  *UFS 

DVEDP»VNSUM(MK14FAC*(  VNSUK(KI-VNSUMIK*»I  I 
DPHDP«PHNSUM| MP|4t  AC  *  I FHNSU* ( P l-PMNSUM I  MM  I) 

DRCDPMftOMSUMIMP  1«  f  AC»IHCjr.SuM|Pl-rtifiSilH<  MM  1 1  l*RHOINF 
OVfGCK«IDVlL(P»l.-S  l  MCI  A  l*V*rCCSILFAJ*DuHDPl  *UF  S 

DUEGDW*tUVLDI*»Or.CS(l.FA|-v»'r,INICFA)*Ol>Hi)P)*UES 

DPEGDb” t PNSUMI MM  1 4E AC» I PNSUMI M 1— PNSUM I  MM I 1 ) vRHOI  NF*UF S**2/G/XXMA 
12 

DTEGDh'  1 . 000/R*(  RHGt  UG«CPE  GDb-PFnG«rROi)P  I  /RH0E0G**2 
02PDU2« IPNNSUPIMM) 4F AC* ( PNNSUM I  Ml- PNNSUM I MMI )1/G/XXMA*«2 
O2PHh2«02P0H2*RHCINF*UFS<**2 
IF  (ISNT.EQ.2I  GO  TO  ISO 

CALCULATE  THE  X  DERIVATIVES 

DTEGCX»(TEOG-TOLDIKI)/CX 

DUtGDXMUtDG-VCLOIKII/GX 

OVEGDX-(VEOG-CVOLUIK) l/DX 

OPf  GCX»-P  HG£OG*llFDG*OUEGDX 

TGLCIKI-TL-DG 

VOLU(KI«UEOG 

CVGIDIKI-VCOG 

CCRTINUE 


RESTORE  X  TO  SURFACE  DISTANCE  VALUE 

X»KN  IT 
RETURN 
END 


BLU2  129 
BLU2  130 
BLU2  131 
BLU2  132 
BLU2  13) 
BLU2  134 
BLU2  135 
BLU2  136 
BLU2  137 
BLU2  138 
BLU2  139 
BLU2  140 
**BLU2  141 
BLU2  142 
BLU2  143 
BLU2  144 
6LU2  14S 
BLU2  146 
BLU2  147 
BLU2  14B 
BLU2  149 
BLU2  150 
BL1J2  151 
BLU2  152 
BLU2  153 
BLU2  154 
BLU2  155 
BLU2  156 
BLU2  157 
BLU2  158 
BLU2  159 
BL U2  160 
8LU2  161 
BLU2  162 
BLU2  163 


SUBROUTINE  CHANGX  CHGX 

IMPLICIT  REAL*BIA-K,C-2I  CHGX 

REAL*B  NOSE  CHGX 

CCPMCN  /BLUNT /  2  PI 103I.XPI 19GI  ,F81 19CI .PEBI 1091 .UEBI 1001 .TEBI IOC  I .CHGX 
1XHB< IJOI.NBLUNT.Nm  EDGE ■ NwPLNB. NFLPL1  CHGX 

CCPMCN  /CCNVPG/  Cr.NV.MTl.MT2.NIT3.MT  CHGX 

COPMON  /liEPV/R /  FI2.10I.3I .FNI2.101.3I.GI2.101.3I .GNI 2.101 .31 .T(2,CHGX 
11C1.3I.TN  12.101. 31. 712. ll'1.3).2M2.101.3).CI  1JH.CNI  101 1  .  V 1 101 1 .  YtCHGX 
2L  (1011, Ru»Ct (1011  CHGX 

CCPMCN  /GECH/  ALPt-A.TF-eTAC.NCSE.RNOSE.WLST.X.XX.HX  CHGX 

CCMMCN  /INJECT/  I-.JCT  ,NC IN J, C-A S2 , CuLL . MA ST RN  CHGX 

CCPMCN  / INTfcGH/  I=.IM,K£N0,KENC2.KLX,K,L,N3LNT1, INO.KPKT.LPRT .KPR.CHGX 
11  PR  CHGX 

CCPMCN  /SDIPNT/  CM  1 10  1 1 .  CMl(  1 01 1 ,  VhI  10  1 )  .GWI 19 1 1  «  Tbl  10 1 1  .uHNI  10 1 1  .CHGX 
irwNI  131),FW<  101)  .TnM  101).2<mGll./bM  Lwl)  .XIM.LiXL'XIW.XV.RW  CHGX 

CCMMCN  /TRANSN/  KTR ANS.Kl'NSET . XIF , CH12 1 1 01 1  > CH l«AX. XHAR  ChGX 

CCMMGN  /TRdLNT/  ASTAR . AKST AH . ALAHDA, V SUbL. EVSC TVI 1G1 I . PRT , E DVl  AW . LCHGX 
lPLUSIlCll , ALET.MMTPB  CHGX 

CCPMCN  /XSOLVE/  XSTAI ICC) .CXPAX.DX.DXCLD.DXL.NS3LVE  CHGX 

DATA  BLUNT. SM ARP/5II8LUNT . 5HSHARP/  CHGX 


IF  (NIT.GE.OI  GO  TO  70 


CUT  BACK  X  AND  DX  AND  SET  OXOLD*DX 

DX-0X/2.0D0 

X-X-OX 

OXCLODX 

RESET  COUNTERS  FOR  TRANSITION 


CHGX 

1 

CHGX 

2 

CHGX 

3 

.CHGX 

4 

CHGX 

5 

CHGX 

6 

.CHGX 

7 

’LCHGX 

9 

CHGX 

9 

CHGX 

19 

CHGX 

11 

..CHGX 

12 

CHGX 

13 

•  CHGX 

14 

CHGX 

15 

ChGX 

16 

i  LCHGX 

17 

CHGX 

18 

CHGX 

19 

CHGX 

20 

CHGX 

21 

CHGX 

22 

CHGX 

23 

CHGX 

24 

CHGX 

25 

CHGX 

26 

CHGX 

27 

CHGX 

2U 

CHGX 

29 

CHGX 

39 

CHGX 

31 
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c 

CHGX 

32 

IF  (X.GE.XSTAIKONSETII  CC  TO  140 

CHGX 

33 

IF  (KONSET.EQ.NSOLVE)  CO  TO  10 

CHGX 

34 

(.ANTRUM 

CHGX 

35 

XIF-0.000 

CHGX 

36 

10 

CONTINUE 

CHGX 

37 

c 

CHGX 

38 

c 

RESET  COUNTER  FOR  INJECTION 

CHGX 

39 

c 

CHGX 

49 

IF  1 1NJCT •  EG .N SOLVE  1  GO  TO  6C 

CHGX 

41 

IF  (X.GT.XSTAdhJCTJI  GO  TO  60 

CHGX 

42 

MASTRN=0 

CHGX 

43 

' 

DO  40  1=1,2 

CHGX 

44 

00  30  K=1 , 3 

CHGX 

45 

00  20  J-I,IE 

CHGX 

46 

2(],J,K|«1.DC0 

CHGX 

47 

2N(I,J,KI=0.CD0 

CHGX 

48 

20 

CONTINUE 

CHGX 

49 

30 

CONTINUE 

CHGX 

50 

40. 

CONTINUE 

CHGX 

51 

DO  5C  J=I,IE 

CHGX 

52 

2MJIM.00C 

CHGX 

53 

2MM  Jl=0.000 

CHGX 

54 

50 

CCNT INUE 

CHGX 

55 

60 

IF  (X.GC.XSTAINOINJ)I  KASTRN-0 

CHGX 

56 

RETURN 

CHGX 

57 

70 

CCNT INUE 

CHGX 

58 

C 

CHGX 

59 

c 

ADJUST  OX  USING  NIT 

CHGX 

60 

c 

CHGX 

61 

IF  (N1T.GT.N1T11  GO  TO  SO 

CHGX 

62 

DX=2.000*DX 

CHGX 

63 

IF  IDX.oT.BXMAXI  DX-DXFAX 

CHGX 

64 

GO  TO  90 

CHGX 

65 

80 

IF  INIT.LT.NIT2I  GO  TC  90 

CHGX 

66 

DX*0.5DC*DX 

CHGX 

67 

90 

CCNT INUE 

CHGX 

68 

IF  IX.EQ.XSTAIINJCTI)  CX=DX/10.0D0 

CHGX 

69 

IF  IX.IO.XSTAIKONSETII  OX=DX/IC.ODO 

CHGX 

70 

CXOLD-UX 

CHGX 

71 

IF  (IND.E0.2. AND. X.LE.X8(NU<>LNR1. AND. NOSE. EQ.OLUNT)  GO  TO  119 

CHGX 

72 

c 

CHGX 

73 

c 

SET  OX  TO  GIVE  A  SOLUTION  AT  XSTAI IX SOL VI I  II  1 

CHGX 

74 

c 

CHGX 

75 

00  100  l=i .NSOLVE 

CHGX 

76 

J«1 

CHGX 

77 

IF  IXSTAII I.GT.X.AND.XSTACIl.LE.IX*!. 2500*0X11  GO  TO  123 

CHGX 

78 

130 

CCNT INUE 

CHGX 

79 

110 

CONTINUE 

CHGX 

89 

X=X«OX 

CHGX 

81 

GO  TC  130 

CHGX 

82 

120 

OX* XSTAI J I— X 

CHGX 

83 

X-XSTAIJI 

CHGX 

84 

130 

CONTINUE 

CHGX 

85 

C 

CHGX 

86 

c 

BEGIN  THE  TRANSITION  REG INE  IF  X* XST A ( KCNS ET ) 

CHGX 

87 

c 

CALCULATE  THE  TRANSITION  1  NT EKHI TT ANCY  FACTOR  FOR 

CHGX 

88 

c 

X.GE .XSTAI KCNSETI 

CHGX 

89 

c 

CHGX 

90 

IF  ( KONSE T .Efl.NSCL VF |  GG  TO  150 

CHGX 

91 

IF  IX. LT. XSTAI KONSETI J  GO  TO  150 

CHGX 

92 

IF  (X.GT. XSTAI KONSETI 1  GO  TO  140 

CHGX 

93 

IAMTRA=2 

CHGX 

94 

NRITE  16,1801  X.LAHTRB 

CHGX 

95 

140 

CONTINUE 

CHGX 

96 

IF  (KTRANS.EC.OI  XIFM.CCO 

CHGX 

97 

IF  (KTRANS.tC.  1)  XIF=l.OOu-OF.XP|-0.412DO*2.917DO*»2*(  1  X-XSTA  1 KONSECHGX 

96 

IT  1  I/I  XSTA  1  K'INSET  1  •  1 XBAK— 1. ODC  1 1  )*»2 1 

CHGX 

99 

IF  (NIT  .IT  .01  GG  TO  10 

CHGX 

100 

c 

CHGX 

101 

c 

BEGIN  NASS  TRANSFER  IF  X-XSTAI INJCTI 

CHGX 

102 

197 
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C 

ISO 


c 

c 

c 

160 


170 

c 

c 

180 

190 

200 


IF  (INJCT.EO.NSCLVEI  GC  TO  160 
IF  (X.IE.XSTAI  iriJCT)  »  GC  TC  160 
IF  (MASTRN.kO.ll  GO  TO  160 
HASTRN»1 

WRITE  (6,1901  X.MASTRN 

END  MASS  TRANSFER  IF  XbXSTA I NC INJ I 

IF  ( NC I ftj .EQ.NSCLVc)  GC  TO  170 
IF  (X.NE.XS1  AIMOINJI  I  GO  TO  170 
HAST  PN*=0 

WRITE  16,2001  X,  R AST RN 
RETURN 


FORMAT  I 1H0< 10X, 27  hBEGIN  TRANSITION  REGIME,  X»,E12.6,9H 

12/1 


CHGX  103 
CHGX  104 
CHGX  IOS 
CHGX  106 
CHGX  10T 
CHGX  108 
CHGX  109 
CHGX  110 
CHGX  111 
CHGX  112 
CHGX  113 
CHGX  114 
CHGX  115 
CHGX  116 
CHGX  117 
CHGX  113 
LAMTRR*. ICHGX  119 
CHGX  123 


FORMAT  ( 1HG,1CX,23HHEGIN  MASS  TRANSFER,  X-,E12.6,9H  MASTRN® • 1 2/ 1  CHGX  121 


FORMAT  < 1H0.10X.21HEN0  MASS  TRANSFER ,  X*,E12.6<9H  MASTRN- , 1 2/ )  CHGX  122 


EKO 


CHGX  123 


SUBROUTINE  CCNTRL  CNTL' 

1MFIICIT  REAL*8t  A-H,0-Z>  CNTL 

REAL*8  NOSF,likLA»,LEWTPR  CNTL 

CCMMCN  /ASSVtP/  IFL.KBL  CNTL 

CCMMON  /3LUNT /  ZH 1 160) . XB ( IOC  1 ,R8 ( ICO ) . PEBI 100 > ■ UEBI 103) , TEBI 100 1 .CNTL 
lXMbl 190 ) , N6LUNT , NwCUGE .NWPLNH.NHLPLl  CNTL 

CCMMCN  /CONI Cl/  P£I61I,TCI61I,UM61I,VEI61) , OPE Owl 61 1 , OTEDWI 61 1 , DUCNTL 
IE0WI61),  DVFDW  ( 61 1  •  OPE  Oi,2 1  61 1  ,  ROWC  I  61  )  CNTL 

CCMMCN  /C0NV9C/  CCNV,MT1,MT2,.-J1T3,MT  CNTL 

CCMMCN  /OEPVAR/  r  ( 2,  101 , 3 1  ,FM  2,  1  Ci  1,  3)  ,G(  2 , 101  ■  3 1  ,liM  2 ,1  01  . 3 1 .  TC  2  .CNTL 
1101, 31,1 N( 2, 101. 31,2(2, 1C  1,3  I, 2N( 2, 1J1,3),CI  10  II,  CM  1C1 1 ,  Y(  101 1  •  YCCNTl 
2LI10I),  PORCH  1011  CNTL 

CCMMCN  /EDGE/  UE  OG,  T  ECO,  VFDG,  PEPG,  OTF'*,OX,DT£GOW,  DIIFCOX  .OUEGON , DVECCN TL 
ICX  .DVLGUW  ,  CP  F COX  ,  OREGON  ,02 P0w2  .KHCiEDG,  AMI)  t  Ok».  ®  'j.'VJCG  CNTL 

CCMMCN  /EDGW/  PEh.UcW.Vlfc.TCh,  UPE  M)X  ,  UPf  K  OW  ,  NJ  tWOX  ,  9UC  «PW  ,  flV  E  WOX  ,  CCN  TL 
IVCWLW , OT  CWCX,rTEhOM,UPwnw2  ,MHUEV>,  AMUfch.HGMUR  CNTL 

CCMMUN  /LDG2/  Pf  2,  TE2,  OF?,  VE2,  CPF.  2DX,i)Tf  2DX ,  0UE2DX  ,DVE  20X ,  DPI-20W  ,(;CNTL 
IUE2OH,0VF2OW,CTt?0W,AMl>E?,PCMU2,P.2,PHUF2,><Ex2  CNTL 

CCMMCN  /FINOtr/  At 1C1 I ,Bb( 1011,81 101I.CCI 1011 ,001 1011.01 1011 ,t(101CNTL 
II, CM  CNTL 

CCMMCN  /f  RSTRM/  RHCINF ,P I NF, TF S.UFS , R , Pfcl . G, XMA  CNTL 

COMMON  /GASPPP/  LE WL AM( 1 jl I , LEWT Rri( 101 ) « PR ANCL 1 1 01 ) , PR4NDT ( 101 1 , CPCNTL 
1 1 1C  1  )  .GAHMAI  Ull.XMUl  1C1  I  ,PHC(  101  I  .HSIJMI  1011  CNTL 

CCMMCN  /GEGM/  Ai  PMA,lHETAC,NCSE,RNGSr  *fclST • X , XX, wX  CNTL 

CCMMON  /  I  FCOFF/  B1  ,U2, 83 , Gl, G2,F  1 ,  F2  ,ne  ,  4L  , pos , CHI  ,W I NOPT  ,U1  .  CNTL 

CCMMCN  /INJtCI/  INJCT,NCINJ,GAS?,C0l'L  .MAS  T  RN  CNTL 

COMMCN  / INTEGRA  IE. IM, KfcNO, KEN02, KL* , K, L , NSLNT 1 , i NO, KPRT ,LP3T .KPR.CNTL 
1LPR  CNTL 

CCMMCN  /OLD/  DUMCIC (611, V0L0(61),CvnLD 1611  CNTL 

CCMMCN  /OLDFCG/  R i . UE3 ,RCMU3  CNTL 

CCMMON  /OUTPUT/  FFhECG ,CFw INF ,CFXE0G,CFX INF ,C HEDGE, CHI NF , AMACHE , OECN TL 
1L,GW,OW1NF,UWUUWO,S.STEDGE,STINF,TAULTA,TAUX,DELSTX,OELPH1 .THETAX.CNTL 
2TFEPHI  CNTL 

COMMCN  /POECCr/  A0( 101  I , A 1 ( 101 1 , A2( 101 1 , A3( 1C1 1 , A41 101 1 , A5( 1 01 )  CNTL 

CCMMON  /POENEF/  UREF ,CREF  CNTL 

CCMMON  /SOLPNT/  CWIIOI I.CNWI 1 C 1 1 • V  pH  1 01 1 ,GW ( 10 1 1 , TW( 101 1 , GHN ( 101 >  .CNTL 
1FWM  101 1  ,FkI  101 1  ,TWN(  101  l,7U(101)  ,2k  HI  101]  .  X I  W  ,OXDX  I W  ,  XW  ,P  W  CNTL 

CCMMON  /SPHPC/  2WALL,2l>OLD.iilCIFrf,AM[)nTU,SlNLSTf  2WPUS •  2WNEG, AMWNE GCNTL 
1,AMWP0S,WALLV,2W2FRIJ,NITFHG  CNTL 

CCMMCN  /STAG/  PST AG, TS TAG , PNC , ONST AG ,HST AG ,HE  CNTL 

COMMON  /SURF AS/  CWALL , CW INO, PE RlNO , VWALL , T WALL , XTWI 500 1 ,TWXI 5001 .XCNTL 
1CU5C0I,CIXI500I,HWALL,TCGNW.KCI,KTH  CNTL 

CCMMON  /TMPRTP/  TFMP( 101 1 , TDTF I  101) , TPI 101 1.PTW.TB  CNTL 

COMMON  /TRBLNT/  AS T AK, AKS T AR , ALAMOA, TSUBL , EVSCTVI 101 1 • PRT , EDVLAU , ECNTL 
1PLUSI101I ,ALET,LAMTPB  CNTL 


1 

2 

3 

4 

5 

6 
T 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
2? 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
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C 

c  ' 
c 
10 


20 


c 

c 

c 


30 

40 

c 

c 

c 

c 

c 


50 


C 

C 

C 

60 


79 


C 

c 

c 


CCMGN  /WSCLVF/  CM 

common  /x t cord/  xi. xxi. oxi .xioLn.Dxnxi.oxoxxi 

COMMON  /XSCLVF/  XSTAIlCul ,  I'.XMAX ,  OX.DXCLCl .  UXl ,  NSOL  VF 

COMMON  /l CCUP.U/  f  TAINr.ETAMC.ETAI  |U  I.PETAI  101I.ADTEST.  KADETA 

DIMENSION  FULDIlOl).  GCLDI101I.  TOLD(lUl).  2CLUI101) 

DAI  A  BLUNT  ,  SHARP/ 5H8LUNT  ,  SHSMKP/ 

DATA  HEl,AR,CC2,AIR/3HHU , 3HAR G , JHC02 , 3HA I R/ 

NITTGT*=0 
A5VM«1 .000 

BEGIN  THE  LOOP  FOR  STEPPING  COhNSTREAM 

CONTINUE 

L»L+i 

IFL*l 

F INDI8* IFL 1 
M-C.ODO 

IF  IKEN’O.EC.l.OP. ALPHA. EC. O.OCOI  GO  TO  20 

DM^wLST/OrLOAT IKEN02—1 I 

CONTINUE 

KPR'KPRT 

IF  (L.E0.1J  KLAST=KENO 

BEGIN  THE  CO-LOOP  FOR  STEPPING  AROUND  THE  CONE 

DO  470  KM.XEND 

WX*M/hLSTM8C.0D0 

IF  IKLAST.GT.OI  GO  TO  30 

MRITF  I6.52CI 

RETURN 

IF  I X .GT .K LAST  I  GO  TO  440 
CONT INUE 

OBTAIN  EDGE ■ NALL . AND  MIXTURE  PPC»EPTY  VALUES  AND  SET 
MIDPOINT  VALUES  TO  VALUES  OBTAINED  FOR  THIS  PLANE  AT 
THE  LAST  STREAHWISE  STATION 

CALL  EGPROP 
CALL  WALL 
00  50  JM,  IE 
f Ml J|«F( 1 , J.2I 
GhUhCll ,  J.2I 
GVEL-GHUI 

IF  IK.EO.l I  GVEL*0.000 
ThlJ)*T(l ,J,2) 

*H(ji=m,j,2» 

FNM J)=FN< 1. J,2» 

GMNI JI*GN( 1. J.2I 
T  MNI J I  =  T  N (  I. J, 21 
ZhM  J>=/NI  1.  J.2I 

TEMPO)*  IT  Ml JI*ME-UEW**2*{Fmj)**2*GVEL*»2>/2.000)/CP| Jl 
CCMINUF 

IF  Cl.EU.I  I  CALL  VCALC 

CALL  MIXTUR  IT M, TEM.UEM.PEM.LEHLAM , PRANOL . CP, GAMMA. CH.CNH. XMU ,RHG, 
1ROPOE .ZW.FW.GW.HSUPJ 

SAVE  THE  PROTILES  FROM  THE  LAST  ITERATION 

DC  70  J»l,  IE 
FOLUIJ)*F(2.J.2l 
GOLDI J)=G( 2. J.2I 
TOLD  I J)  =  T I  2 . J, 2) 

7GL0I J)*2 1  2. J.2) 

CONTINUE 

IF  IHASTRN.EC.OI  GO  TO  130 
IF  IGAS2.E0.A1R)  GO  TO  130 
IF  ICHALL.EO. 0.0001  GO  TO  130 

SOLVE  THE  SPECIES  CONSERVATION  EQUATION 

IF  I L .GT • 1 .AND.K.EO.l I  IWCL0-ZM2ER0 


CNTL 

46 

CNTL 

47 

CNTL 

48 

'Cntl 

49 

CNTL 

50 

CNTL 

51 

CNTL 

52 

CNTL 

53 

CNTL 

54 

CNTL 

55 

CNTL 

56 

CNTL 

57 

CNTL 

58 

CNTL 

59 

CNTL 

60 

CNTL 

61 

CNTL 

62 

CNTL 

63 

CNTL 

64 

CNTL 

65 

CNTL 

66 

CNTL 

67 

CNTL 

68 

CNTL 

69 

CNTL 

70 

CNTL 

71 

CNTL 

72 

CNTL 

73 

CNTL 

74 

CNTL 

75 

CNTL 

76 

CNTL 

77 

CNTL 

78 

CNTL 

79 

CNTL 

80 

CNTL 

81 

CNTL 

82 

CNTL 

83 

CNTL 

84 

CNTL 

B5 

CNTL 

86 

CNTL 

87 

CNTL 

aa 

CNTL 

89 

CNTL 

99 

CNTL 

91 

CNTL 

92 

CNTL 

93 

CNTL 

94 

CNTL 

95 

CNTL 

96 

CNTL 

97 

CNTL 

98 

CNTL 

99 

CNTL 

100 

CNTL 

101 

CNTL 

102 

CNTL 

103 

CNTL 

194 

CNTL 

105 

CNTL 

1C6 

CNTL 

107 

CNTL 

108 

CNTL 

109 

CNTL 

110 

CNTL 

111 

CNTL 

112 

CNTL 

113 

CNTL 

114 

CNTL 

115 

CNTL 

116 
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60 

90 


100 

110 


120 

UO 

C 

c 

c 


140 

ISO 


160 

170 


ieo 


190 


IF  (L.EQ.ll  rETAOY*DSQRTI2.0nO*RHOU l**2*DUEG0X/F0HUW) 

IF  (L.GT.II  CETAUY-KHGI 1 1  »U£h* Rt>/USGKT  I  2  .C DJ* X IW  I 
CAIL  SPEC  He 

IF  (LAHTRG.EC.2I  CALL  ECYVIS 
CALL  SPECIE 
CALL  APCDC  III 

CALL  SOLVE  IZ.ZN.O.OnO.ZHALL.l.COO) 

IF  IL.GT.I )  CC  TO  90 
CO  60  J-l , IE 

21 1.  J.3I* / 12, J,2 l*2.CD0-ZI 2, J, i) 

2NI  li  J.  JJ=ZN(;,j,2W.cr.C-ZN(2,J,n 

Zll.J, 21*2(2, J,2> 

2N(IIJ,?I*2N(2,J,2I 

CCNT  ir.ut 
CONTINUE 

IF  (K.GT. II  CC  TC  110 
DO  100  J* 1  ,  I  F 

212,  J, 11*7(2, J, 21 
2(1. J,31=7( l,J,21 
2N(2,J,1I*2N(2,J,2I 
2N(1,J,3I  =  ZMI,Ji21 
CCNT INUE 

CCNT INUE 
OC  123  J* 1 , 1 E 

IF  (K.EO.KIASTI  2(  l.J  ,31*2 (2. J, 21-2(2, J, 1 1 *21 1  ,J,2I 
IF  (K.EO.KIASTI  2N(I. J,  3  I  *  ZN  I  2  .  J.  2 1- ZNI  2  , J, I l*2NC l, J.21 
Zfc(ji>zi2,j.2i*r<>i»(i  .cdc-xr  11*711.3,21 
2WN(  JI  =  2N(2,J,2)*C>(|  ♦!  l.CCC-CK  I  l*2N(  I,  J.2) 

IF  (L.EQ.ll  ZKIJI  =  ZI2,J,I  !■(  1. CU3-CP II *Z I  2 , J , 2  |»C»  I 
IF  (L.fO.ll  ZhNI  J)  =  7N(2,J,1I*(1.0D0-CP||*ZN(2,J,2I*C«I 
APCUTM*-RHG(  11*01 ')1FM*2N(2,1  .2  I  *uETADY«KHO  1 1 1  *  UAL  IV*  Z  WALL 
CCNT INUE 

SOLVE  THE  ENERGY  CONSERVATION  ECUATICN 


CNTL  117 
CNTL  lid 
CNTL  119 
CNTL  123 
CNTL  121 
CNTL  122 
CNTL  123 
CNTL  124 
CNTL  125 
CNTL  126 
CNTL  127 
CNTL  123 
CNTL  129 
CNTL  130 
CNTL  131 
CNTL  132 
CNTL  133 
CNTL  134 
CNTL  135 
CNTL  136 
CNTL  137 
CNTL  139 
CNTL  139 
CNTL  140 
CNTL  141 
CNTL  142 
CNTL  143 
CNTL  144 
CNTL  145 
CNTL  146 
CNTL  147 
CNTL  1 48 
CNTL  149 
CNTL  150 


IF  UANTflB.EQ.2l  CALL  ECYVIS 

TB*HHALL/HE 

CALL  ENERGY 

CALL  ABCDE  ITI 

CALL  SOLVE  IT,TN,3.3UC,TB,1.CCCI 
IF  (L.GT. 1 1  CC  TC  ISO 
DO  140  J*  |  ,  | E 

7II.J.3I*! (2,J,2)«2.0DC-TI2,J.II 
TN-ll,  J,3|.  TNI2.J,2I*2.0CC— TNI2.J,  II 
1I1.J,2I*T(7,J,2I 

1Ntl.J.2l*TNI2.J.2l 

CONTINUE 

CCNT INUF 

IF  (K.GT.l |  CC  TO  170 
DO  160  J* 1  ,  I  E 
TI2,J,1I*T(2,J,2I 
T(I,J.3I*T ( I , J, 2 1 
TNI2, J,11*TN(2.J,’I 
TNI1.J,3I*TNII,J,2> 

CCNT INUE 
CONTINUE 
00  ISO  J* 1 , I E 

IF  IK.EO.KLAST  I  Tll,J,31*TI2,J.2l-TI2,J,ll*T(l,J.2l 
IF  IK.fO.KLASTI  TNI  1 , J ,  31 =TNI 2 , J , 2 1- TNI  2 , J , 1 1  *  TNI  1 , J . 2 1 
TklJI*TI2.J,2l*Cfl|+T(  l, J, 21*11 .  C’OO-CR  I  I 
THN(J|-TN(2,J,2)*CKI*TN'  (  1  .  J,  2  I  *  I  l  .  0IJ9-CR  I  I 
IF  ll.EO.ll  Thl  JI  =  TI2,  J,1  )•(  l.ODO-CK  1 I  *T  (  2 ,  J ,  2 1  *C R I 
IF  IL.EU.tl  TWNI JI*TNI2.J, 11*( I .OOO-CR 1 1 *TN( 2, J, 2 1 *CK ( 
CCNT  2  NUE 
00  190  J* 1  , 1 E 
GVEL-GWIJI 

IF  (K.CU.l  I  GVEl *0.000 

TFNP ( Jl* IT  HI JI*HF-UEk**2» (FHtJ I **2*GVEL** 2 1/2.000 1 /CP  I J) 
CCNT INUF 

CALL  PIXTUR  (Th.TEH.UEH.PEU, LFHLAM.PRANDL , CP, GAMMA. CM. CNW, 
IROROE, ZU, Fh.GH,HSUHJ 


CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

CNTL 

XHU.RHO.CNTL 

CNTL 
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C 

C  SOLVE  THE  STREAHH1SE  MOMENTUM  CONSERVATION  EQUATION 

c 

IF  ILAMTRB.EQ.2I  CALL  EOVVIS 
CALL  XMOM 
CALL  AUCDE  (FI 

CALL  SOLVE  (F,FN,C. GOO, O.GDO.l.ODOJ 
IF  (L. OT.il  GO  TO  210 
DC  200  J=1 , 1 E 

F(l,J,3)=r(2,J,?l*2.0CC-F(2, J,l) 
FN11,J,3)=FM?,J,2I«2.CC0>FN(2,J,  11 
F 1 1 ,  J,2) =F 1 2, J  ,2 1 
FN(1,J,2)*FN(2,J,2I 
200  CCNTINUE. 

210  CCNTINUE 

IF  IK.CT.l I  GC  TO  230 
DO  220  J*  1 , 1  E 
F(2,J,1I=F(2,J,2) 

F(l,J,3l=F(l,J,2) 

FN(2.J,1)=FN(2,J,2) 

FK(1,J,3)*FNI 1,0,21  > 

220  CCNTINUE 
230  CCN1INUE 

DC  240  0*1, IE 

IF  (K.rQ.KLASTI  F < 1 , 0 , 3 l*F«2, 0,2 l-T ( 2, J, 1 1 *FI 1 , J, 2 ) 

IF  (K.EO.ftLAST)  FMl,J,3J=FN(2,J,2)-FM<2,J,II*FN<  1.J.2I 
FWU)=F(2,J,2I*CRI«F<  1 , 0  ,2  1  •  (  1  .GDO-CR  1 1 
FNMJI=FNI2,J,2)*CRI»FN('l,J,2)*<  l.CUO-CRI  I 
IF  (L.FQ.l)  FW(JI*F(2,J,1J*I 1.000-Ck| l«F(2,J,2l*CRI 
IF  (L.EO.ll  FhNI 01 "FN(2,J, 1)»( l.ODO-CR I I+FNI 2, 0,2 l*CRl 
240  CCNTINUE 

IF  ( ALPHA. EO.C.OCJI  GC  TO  300 
IF  (NOSE.Eg.ULUNT.AND.ING.EO.il  GO  TO  300 

c 

C  SCLVE  THE  CKCSSFLOtf  MOMENTUM  CONSERVATION  EQUATION 

C 

CALL  VCALC 

IF  (LAMTR0.cO.2l  CALL  ECVVIS 
CALL  PHI KOR 
CALL  ABC Dt  I G I 
EOC-BC=AL 

IF  IK.fO.l]  EOGBC=WINDPT 
CALL  SOLVE  ( G ,GN. 0.000,0. 000, ECGBC I 
IF  (L.GT.l)  GO  TC  260 
DC  250  0«I  ,I£ 

G( l.J, 3) =G <2, J, 2 1*2.000-0(2. J. II 
GN( 1 ,0, 3I=GN< 2, 0,2 1 *?.C0C-GN(2,J, II 
C( 1 , J ,2 l=G ( 2 , J,2 I 
CN II, 0,21* ON (2, 0,21 
250  CCNTINUE 
260  CGNTINUC 

IF  (K.GT.ll  GO  TC  280 
DO  270  0*1, IE 
GI2, J,1 I *G(2 , J,2 I 
GI1,J,3I*G< 1,0,21 
GNI2,J,ll*GN(2,J.21 
GNI 1 , 0,3)*GNI 1,0,21 
270  CCNTINUE 
280  CCNTINUE 

DO  290  0=1,1 E 

IF  IK.CO.KLASTI  G(  1 , 0 . 3  l*f,( 2 ,0 ,2)-GI  2,  J,  1 1  «C(  I  .  J ,2 1 
.IF  (K.EO.KLASTI  GNI  1,  J .  3 1  =GN(  2  ,J  •  2  l-GN<  2.  J  .  1  l+GNI  l,J,2l 
GN (01  =G I  2,0, 2 l*CR  I  H1.CI1G-CR  I  >»GI  1,0,21 
GkM  JI*G.N(2,J,2I*CMI  ♦(  1  .UjO-CR  I  »*GHI  1,0,21 
IF  (L.FQ.l)  GW(J1=G(2,  J,  ll*|  l.ODO-crUI  tG(2.0,2)»CR| 

IF  (L.EO.ll  GkN( J I =GN ( 2 • J, 1 1 •( I .OOO-CR ()+GN(2,J,2)*CRf 
290  CONTINUE 
300  CCNTINUE 

CALL  VCALC 
M  T=NIT*1 
C 


CNTL 

188 

CNTL 

189 

CNTL 

190 

CNTL 

191 

CNTL 

192 

CNTL 

193 

CNTL 

194 

CNTL 

195 

CNTL 

196 

CNTL 

197 

CNTL 

198 

CNTL 

199 

CNTL 

200 

CNTL 

201 

CNTL 

202 

CNTL 

203 

CNTL 

204 

CNTL 

205 

CNTL 

206 

CNTL 

207 

CNTL 

208 

CNTL 

209 

CNTL 

210 

CNTL 

211 

CNTL 

212 

CNTL 

213 

CNTL 

214 

CNTL 

215 

CNTL 

216 

CNTL 

217 

CNTL 

218 

CNTL 

219 

CNTL 

220 

CNTL 

221 

CNTL 

222 

CNTL 

223 

CNTL 

224 

CNTL 

225 

CNTL 

226. 

CNTL 

227 

CNTL 

228 

CNTL 

229 

CNTL 

230 

CNTL 

231 

CNTL 

232 

CNTL 

233 

CNTL 

234 

CNTL 

235 

CNTL 

236 

CNTL 

237 

CNH 

239 

CNTL 

239 

CNTL 

240 

CNTL 

241 

CNTL 

242 

CNTL 

243 

CNTL 

244 

CNTL 

245 

CNTL 

246 

CNTL 

247 

CNTL 

248 

CNTL 

249 

CNTL 

250 

CNTL 

251 

CNTL 

252 

CNTL 

253 

CNTL 

254 

CNH 

255 

CNTL 

256 

CNTL 

257 

CNTL 

258 
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c 

THE  SOLUTION  IS  CHECKEC  FOR  CONVERGENCE 

CNTL 

259 

c 

CNTL 

260 

IF  (MT.IE.NIT3)  GO  TO  320 

CNTL 

261 

WRITE  ( b.  503 1  K.L.MT 

CNTL 

262 

IF  (K.GT.l )  GO  TO  3)0 

CNTL 

263 

MTTGT»N1T*NITT0T 

CNTL 

264 

IF  IMTTOT.Gf.  I3-N1T3I  I  WRITE  (6.510)  K.L.NITTOT  CNTL 

265 

IF  IMTT0T.GT.I3-MT3I  )  STCP 

CNTL 

266 

MT-l 

CNTL 

267 

CALL  CHANG X 

CNTL 

266 

NIT-0 

CNTL 

269 

GG  TO  40 

CNTL 

270 

310 

CONTINUE 

CNTL 

271 

KLAST-K-1 

CNTL 

272 

GO  TO  440 

CNTL 

273 

320 

CONTINUE 

CNTL 

274 

C 

CNTL 

275 

c 

CONVERGENCE  TEST  ON  ALL  POINTS  OF  THE  F.G.J 

'.AND  T  ARRAYS  CNTL 

276 

c 

CNTL 

277 

DIF-O. ODO 

CNTL 

278 

00  340  J=?,IE 

CNTL 

2  79 

D1FF-CARSIFI2, J, 2I-FCL0I J 1 l/CABSIFOLOl J) I 

CNTL 

260 

IF  IUIFF.GT.OIF)  C1F-DIFF 

CNTL 

281 

IF  IGCLDI Ji.EC.O.ODO)  GO  TO  330 

CNTL 

282 

DIFF-DABS(GI2< J.2i-G0LC(J) l/CABS IGDL 01 Jl 1 

CNTL 

283 

IF  (OIFF.GT.OIFI  OIF-UIFF 

CNTL 

284 

330 

CONTINUE 

CNTL 

285 

D1FF-0ABSCTI2, J.2I-TCL0IJ) l/DABSI  TOLDI J)) 

CNTL 

286 

IF  (OlfF.GT.CIFI  C 1 F=0 IFF 

CNTL 

287 

DIFF-DARSI 21 2. J. 2)~ 2PL0I J 1 l/OABSI ZOLDl Jl) 

CNTL 

288 

IF  (UIFF.GT.M F)  CIF-OIFF 

CNTL 

289 

340 

CCNTINUE 

CNTL 

290 

C 

CNTL 

291 

c 

CNTL 

292 

IF  IOIF.GT.COMV)  GO  TO  60 

CNTL 

293 

IF  IMT.EO.l)  GO  TO  60 

CNTL 

294 

IF  (KADETA.EC.O)  GG  TO  370 

CNTL 

295 

c 

CNTL 

296 

c 

TEST  THE  ASYMPTOTIC  NATURE  OF  THE  SOLUTION 

ANO  ADJUST  ETAINF  CNTL 

297 

c 

IF  NECESSARY 

CNTL 

293 

c 

CNTL 

299 

ASYK-FI2. 1 6. 2 1-F 1 2, 1 6-4,2) 

CNTL* 

300 

IF  ( ASVM. LT.ADTEST1  GC  TO  350 

CNTL 

301 

T  ST-  I. 000 

CNTL 

302 

FT ACLO-ET  A  INF 

CNTL 

3C3 

GC  TO  363 

CNTL 

304 

350 

IF  (KFND2.GT.il  GO  TO  370 

CNTL 

305 

IF  (ASYH.GT.AOTEST/10 .000 )  GC  TO  370 

CNTL 

3G6 

TST-2.CU0 

CNTL 

307 

ETAtlLO-ETAINF 

*  CNTL 

308 

360 

CALL  ADOETA  ( T  ST  ■  A&YH. ET  AT.  LO  ) 

CNTL 

309 

GO  TO  6C 

CNTL 

310 

370 

CCNTINUE 

CNTL 

311 

IF  (K.FG. l.GR.K.EQ. ( KENU- 11/2)  N ITHAF-M T 

CNTL 

312 

WRITF  IBMFLI  IT  1  2,  J  .21  ,F(  2.  J.  2I.GI2.  J  ,2)  , 

T9(  2 ,J.2) .FNI2.J.2 I .GNI 2CNTL 

313 

l.J.2>.Z(2.J.2I.ZN(2.J.2).J-l.ir),ETAINF 

CNTL 

314 

C 

CNTL 

315 

c 

STGRE  BLUNT  COME  WEDGE  SECTION  SOLUTIONS  ON  UNIT  4  FOR  USE  AS  CNTL 

316 

c 

STARTING  UATA  FOR  THE  AFTERBODY  SOLUTIGN 

CNTL 

317 

c 

CNTL 

318 

IF  (NOSE. EO. SHARP!  GO  TO  410 

CNTL 

319 

IF  ( KENU.GT . 1 )  GC  TO  410 

CNTL 

320 

IF  (IN0.E0.2I  GO  TO  410 

CNTL 

321 

IF  (X.LT.XR(NPLPLn.OK.X.CT.XRINWPLNO) 1  GO 

TO  410  CNTL 

322 

00  360  N-NBLPll.NWPLNB 

CNTL 

32  3 

IF  (X.LO.XO(N)I  GG  TO  390 

CNTL 

324 

300 

CCNTINUE 

CNTL 

325 

GC  TO  410 

CNTL 

326 

390 

CCNTINUE 

CNTL 

32  7 

WRITE  14'KBLI  IT  (  2,  J  ,  2 1.F  (  2.  J,  21. G(  2,  J  ,2 1 , 

TNI2.J.2).FN(2.J.2 ) .GN( 2CNTL 

328 

l.Jf2).*(2.J.2I.ZN<2.Jt2lf J-l.IEI.ETAINF 

CNTL 

329 
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400 


410 

C 


C 

c 

c 

c 


420 

430 


IF  I X.NE.  X8( NWPLNB  I I  GO  TO  .410 

0X010=0X1 

IFl«i 

KBL«  1  - 

REXO  (4'KULI  IT(2,J,2l,FI2,J,2l,r,(2,J,2|,TN(2,J,2l,FN(2,J,2l 
1J.2» ■Z{2.J.2I,2N(2<J.21,J=1,TEI,CTALLD 

MUTE  (8'IFLI  (Ti2fJi2},F(2.J,2liG(2iJ,21tTN(2.Ji2),FN(2«J>2 
ltJ(2)  all  2  .  J.2)  .2M2,J.2I.J  =  1.IE>.ETA0LD 
IF  (KBI.£0.KEM>2*11  GO  TC  410 
GO  TO  400 
CONTINUE 

CALCULATE  AND  WRITE  OUT  THE  RESULTS  OF  THE  CURRENT  SOLUTION 

CALL  PPOPTV 
CALL  QUT2 
N*h.ow 

THE  PROGRAH  IS  SET  TO  FIND  THE  SOLUTION  AT  THE  NEXT 
CC0R01NATE  POINT 


DO  430  J«1.IE 

IF  (KaEO.laANC.KENO.GT.il  G( 2, J.2 I =0.000 
IF  (K. E0.1.AN0.KEND.GT.1)  GN 12, J, 2 )« 0.000 
F(2.J.ll=f(2.J.2l 
FN(2,J,1I>FN(2,J,2I 
FI1.J.2I=F(1,J,3I 
FN(I.J.2I>FNI1.J.3I 
7(2. J,1 )*T 1 2. J.2  I 
TM2.J.ll*TNI2.J,2l 
T(l.  J,2I  =  TU.  J.3I 
TMI,J,2I=TNM  >  J  a  3 1 
ZI2.J. 11=2(2. J. 21 
2N(2.J.1)°2NI2,J,2) 

2(1.J, 21=2(1. J, 31 
ZNdf  J.21-2NI  1.J.3I 
C(2.Jill>G(2.J,2) 

GN(2.J.1J=GN(2.J,2I 
G(1.J.2I«GI1.J,3I 
GN(1.J.?)«GN(1.J.3> 

IF  (L.NE.l I  GC  TO  420 
F(1.J.2)=F (2.J.2I 
FM1.J,2I  =  FN(2,J,2) 

T(1.J.2I>T(2.J,2I 
TN(1.J,21=TN(2.J.2I 
Ml. J. 21  =  2(2. J, 21 
2N(I.J.2I=2N(2,J,2I 
G(1.J,2I=G(2.J.2I 
GN(1,J.2I=GNI2,J,2I 
■  F(I,J.3l=f (2.J.2I 
FN(1.J.3I=FN(2.J.2I 
TII.2i3)‘T (2. J.2I 
TN(1,J,3I=TN(2.J.2I 
2(1. J. 31-2(2, J, 21 
2N(1.J.3I=2N(2,J,2I 
G(1«J.3I=G(2.J,2I 
GN(1.J,3I*GN(2,J,2I 
CCMINUE 
CONTINUE 

IF  (L.EU.I  I  GO  TC  440 
IF  (K.GE.KLAST-ll  GO  TO  44C 
READ  (8* IF L I  ( T I  I. J.2 I ,F( I .J .21. Cl  1, J.2I ,TNI 1 , J.2) ,FNI 1. J.2I , 
1J,2I.2(1.J,2I,2NI1.J,2I.J=1, 1EI.ETA0L0 
1ST-3.000 

IF  IETAOLD.LT.ETAINF I  CALL  AOUETA  (TST .ASYP.CTAOLDI 

CB'IFLI  (Tl 1.J.31 ,F( I.J.3I.GI I. J. 31. TNI  1. J, 31.FNI 1.J.3I  • 
1J.3I.2C  l.J,  3).  ZM  1  ,J,3I,J*1.  IEI.ET  AGIO 
TST=4.0D0 

IF  IETAOLD.LT. ETAINFI  CALL  AODETA  (TST ,ASVM, ETAOLOl 
IFL-IFl-2 
FINIMB*  1FL1 


CNTL  330 
CNTL  331 
CNTL  332 
CNTL  333 
»GN( 2 .CNTL  334 
CNTL  335 
I.GN12CNTL  336 
CNTL  337 
CNTL  338 
CNTL  339 
CNTL  340 
CNTL  341 
CNTL  342 
CNTL  343 
CNTL  344 
CNTL  345 
CNTL  346 
CNTL  347 
CNTL  348 
CNTL  349 
CNTL  350 
CNTL  351 
CNTL  352 
CNTL  353 
CNTL  354 
CNTL  355 
CNTL  356 
CNTL  357 
CNTL  358 
CNTL  359 
CNTL  360 
CNTL  361 
CNTL  362 
CNTL  363 
CNTL  364 
CNTL  365 
CNTL  366 
CNTL  367 
CNTL  368 
CNTL  369 
CNTL  370 
CNTL  371 
CNTL  372 
CNTL  373 
CNTL  374 
CNTL  375 
CNTL  376 
CNTL  377 
CNTL  378 
CNTL  379 
CNTL  380 
CNTL  381 
CNTL  382 
CNTL  383 
CNTL  3B4 
CNTL  3B5 
CNTL  3B6 
CNTL  387 
CNTL  3B8 
CNTL  3R9 
CNTL  390 
GNd.CNTL  391 
CNTL  392 
CNTL  393 
CNTL  394 
GNI1.CNTL  395 
CNTL  396 
CNTL  397 
CNTL  398 
CNTL  399 
CNTL  400 
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440 

COM  INUE 

CNTL 

401 

IF  (K.NE.KESOI  CO  TO  460 

CNTL 

402 

READ  10*11  (Kit  J.2I  ,K  1.J.2I  ,GI1.  J.2)  ,TN(  1.  J.  2>,FN(1.J,2I  iGNt l.J, 

iCt.TL 

403 

121.2  ( It  J.2  1  ,2M  1  ,  J.2  >  ■  J*1 .  IE  1  .ETALLO 

CSTL 

404 

T  ST*  3. COO 

CNTL 

405 

IF  ICT6UL0.LT. FTAINF1  CALL  ACDETA  tTST.6SYF.ET AOLD) 

CNTL 

406 

DO  450  J*  L  .  1  E 

CSTL 

407 

T  12. J.l >  =  T 1 1 .J.2 1 

CNTL 

408 

TNI2.J.1) =  T  N  ( 1 .J.2) 

CNTL 

409 

Ttl.J, 31=111. J. 7) 

CNTL 

410 

TNI1.J, j|*TU(l,J.2l 

CSTL 

411 

2(2.J, 11*7(1, J. 7) 

CNTL 

412 

70(7. J, 1)*7N(1.J,7) 

CNTL 

413 

111. J. 31*711, J. 7) 

CNTL 

414 

2N( 1 , J , 3 ) *  2  M 1 .J  ,2  ) 

CNTL 

415 

F(2,J.ll  =  rillJ.2l 

CNTL 

416 

FNI2,J,l)*FMl,J.2) 

CNTL 

417 

F 1 1 .  J ,  3 )*F  ( 1  ■  J , 7  ) 

CNTL 

418 

FN(1,J.3I=FN( 1.J.2I 

CNTL 

419 

612, J, 11=0(1. J,2> 

CNTL 

420 

CM2, J.l)*  ON  (l.J. 7) 

CNTL 

421 

C(  1 • J , 3 )  =  C( 1 , J.2 ) 

CNTL 

422 

CNI 1 . J. J) *CN 1 1 . J ,2) 

CNTL 

423 

450 

CCM  INUE 

CNTL 

424 

4o0 

CCM  INUE 

CNTL 

425 

NIT*0 

CNTL 

426 

NITTOT-O 

CNTL 

427 

470 

CCM  INUE 

CNTL 

428 

C 

CNTL 

429 

C 

IF  X.EQ.XUINWPLKB)  CONVERT  TO  BCDV-F 1XED  COORDINATES 

CNTL 

433 

C 

CNTL 

431 

NI1*NITHAF 

CNTL 

432 

DX*LXOL  D 

CNTL 

433 

IF  1  ISO. (0.2)  CC  TO  48C 

CNTL 

434 

IF  (X.EO.XUtr.wPLNdl)  IN0*2 

CNTL 

435 

IF  1 1ND.E0.I )  GO  TO  48C 

CNTL 

436 

X»X-RNOSE*ALPHA 

CNTL 

437 

KEKD*KFN(>2 

CNTL 

438 

KLAST-KENO 

CNTL 

439 

4B0 

CCM  1  SUE 

CNTL 

440 

CALL  CHANGX 

CNTL 

441 

MOO 

CNTL 

442 

IF  tX.GT.XSTA(NSOLVEI)  CO  TO  490 

CNTL 

443 

IF  (L. SE.l. AND. L. EQ.LPR.CR.LPRT.EO.il  LPR'LPR+LPRT 

CNTL 

444 

CC  TO  10 

CNTL 

445 

490 

CCM  INUE 

CNTL 

446 

WRITE  (6,530) 

CNTL 

447 

RETURN 

CNTL 

448 

C 

CNTL 

449 

c 

CNTL 

450 

c 

CNTL 

451 

530 

FORMAT  1 10X, 4CHF A 1  LED  TO  GET  A  CONVERGED  SOLUTION  AT  K*iI3.5X.2HL 

"CNTL 

452 

1.I3.5X.4HMT*.  131 

CNTL 

453 

510 

FCRM.AT  I  10X.5THEXECUT1CN  TERMI NAT  1 NG***»* • NI TT 0T . GT . 3*N1  T3****4* 

CNTL 

454 

1  K-  , I2.3HI*  ,  I3.8HMTT0T*  ,13/1 

CNTL 

455 

520 

FORMAT  1  10X.4CHEXECUT1CS  TERPI NA H SG******KLA ST* 0* •****/! 

CNTL 

456 

530 

FORMAT  (10X.7HTHE  ENOI 

CNTL 

457 

END 

CNTL 

458 
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C 

C 

c 

c 


10 


SUBROUTINF  OF.  RIV  I  F,x ,  ]»tx ,  IMIN,  FP ) 
IMPLICIT  kEAL*B  (4-H.O-2J 
DIMENSION  FI  1C  11 1  XI  1C  1 1,  f PI 101 1 


SUSP  OUT  INF  0FRIV3  CALCULATES 
RESPEC1  TO  X  AND  RETURNS  THE 


THfc  FIRST  DERIVATIVES  OF  f  WITH 
ARRAY  FP. 


DC  10  JSIMIN,|MAX 
K«J 

IF  CK.LT.I IHIN*11 |  Ks I H I Nt 1 
IF  IK.GT .1 IMAX-1 I |  Kz|HAX-l 

CALL  F01  IXIJ)«XIK-1),  X|K)fXIK»l>,  FIK-11,  F (K I , F I K»ll t FP I J) > 

CONTINUE 

RETURN 

END 


DERV  1 
OERV  2 
DERV  3 
DERV  4 
DERV  5 
DERV  6 
DERV  7 
OERV  8 
DERV  9 
OE  RV  10 
DE  RV  II 
OERV  12 
OERV  13 
DERV  14 
DERV  15 


C 

c 

c 

c 


10 


20 


30 


SUBRCUTI NE  0ERIV3  IFX, 1 1 , KK , X, I MAX , IH| N, FPX 1 
IMPLICIT  REALMS  lA-H.C-II 
REAL*:  NOSE 

CCPMON  /INTECR/  IE , IH , XEND.KEND2, KLX.KITUM, L, NBLNT1 , INO, KPRT , LPRT 
lPRfLPR 

DIMENSION  XllOllf  FXI 2 >101 >3  It  FPI101I,  FllOllt  FPXI2>101>3! 

SUBRCUTI NE  DERIV3  CALCULATES  TFE  FIRST  DERIVATIVES  OF  F  WITH 
RCSPEC1  TO  X  AND  RETURNS  THE  ARRAY  FP. 

DO  10  J*l>  IE 
FIJI-FXI I  I > J > KK | 

CONTINUE 

DO  20  J*!MIN>  I  MAX 
K*J 

IF  IK.LT.I 1MIN»1))  K-IRIN+1 
IF  IK.GT. I IMAX-1))  K* I  MAX— 1 

CALL  FD3  IXIJI,XIK-1),X|K|,XIK*1),FIK-1),FIKI,F(K»1),FPIJ)) 

CCNTINUE 

DO  30  Jcl.IE 

FPXI II,J,KKI=FPI J) 

CONTINUE 

RETURN 

ENC 


DER3 

DER3 

DER3 

tKOERJ 


DER3 

5 

OF  R3 

6 

DER3 

7 

DtRJ 

8 

DER3 

9 

DER3 

10 

DFR3 

11 

DER3 

12 

DER3 

13 

DER3 

14 

DER3 

15 

DER3 

16 

DER3 

17 

DER3 

18 

DERI 

19 

DER3 

20 

DER3 

21 

DER3 

22 

DER3 

23 

DER3 

24 

205 


AEDC-TR-75-55 


SUBROUT  INF  DISKIN 
IMPLICIT  REAL*8  I A-H.O-I) 

REAL  *8  NOSE  .  ...  »* 

CCPMCN  /FLOOAT/  FlCFl0l5.I5)»Blim2(40l,BlUNTP(40>,lII  DISK 

CCPMCN  /CE CM/  UUNMY.THETAC.NCSE.RNCSE.WLST.O.XX.WX  DISK 

CCKMCN  /1NTEGR/  IE , IM,  I l)t T  A,  KLNC2  , KLXt  KK. L  L >  N3LNT  L » I NOt  KPRT <  LPRT  .KOI SK 
IPR.LPR 

CCFHCN  /UNI T 10/  DXINVS.D1SK  .  O*  SK 

U1KEKSI0N  XI20.15).  PI20.15),  RH0(20il5l,  CFPHI 1 20»  15 1 ,  V(20iISI.  DISK 
1PSM5)i  RrtOSIlSI,  CFPhISI  151 .  VSIL5I,  PS5I151,  RH0SSI15),  FPHISSIIOISK 
25».  VSSI15) 

DIMENSION  APS  I  IS  I <  ARHCSIlSIt  ACFPHIII5I,  AVSI 151  DISK 

DATA  BLUNT  .SHARP/5HBLUNT.5HSHARP/  DISK 

WRITE  (30,350) 

WRITE  130.220  ®!** 

WRITE  130.220) 

IF  (NOSE. tO. SHARP!  GO  TO  10  ** 

01  SK 

AXIAL  DISTANCE  IN  NOSE  RADII. AND  PRFSSURE  FROM  THE  MODIFIED  DISK 

INVERSE  SOLUTION  METHCO  ARE  RE  AC  IN  DISK 


READ  (251  III 

111*111-2  UI5X 

RE  AO  1251  I  BLUNT  2111.1*1.111)  ®*f* 

READ  (251  (BLUNT PI  11.1*1.111) 

CCKTINUE  DISK 

IF  (NOSE.EO.GLUNT I  RFAO  (25|  AA, RB. ALPHA, R.P I NF. RHOINF ,T INF , XMA, THDI  SK 
1E1AC.YU, JL .Kl , ISTA.G  _ 

IF  (NOSE.EU.SHAFP)  Rt  AC  125)  A A.8B , ALPHA ,R ,P INF ,RHOI NF , T I NF , XMA, THDI  SK 
1ETAC.YU.  JL.KL.ICUM.C  ®| 

VINF*XMA*DSGRT(1 .40u*R»TINF»  DI  5K 

IF  (NUSE.EQ.SHAFP)  GO  TC  30  ® J  ** 

DO  20  1*1.111 

ELUNTPCI  >*BLUNTPII)/PIKF  JJJ** 

CONTINUE  ®|« 

READ  THE  FIRST  METHOD  OF  CHARACTERISTICS  SOLUTION  DISK 


I5.K) ,K*1 ,KL) 

FL0FLDI1 ,Kl*AX IAL  DISTANCE 
FLCFLUI2.K)*CR0SSFL0m  angle 
FLOF  LDI3.K) 'PRESSURE 
FLCFL3(4,K)«  cfnsity 
FLCFLDI5,KI=VEUCITY 
Kl  IS  THE  NUPBLR  OF  PLANES 
K*1  IS  THE  IEEWAAU  PIANF 
K*KL  IS  THE  WINOhARD  PLANE 

PI*DARCOS(— 1 .OOC I 
WRITE  130.220 
WRITE  (30.230)  KL 
WRITE  130.2201 
XB*f  t  CFLD I  l.KU 
TFETA-TMET AC*  1 1(0. GDC/PI ) 

ALPH*ALPHA*( 18C.OCO/PI ) 

WRllt  I3C.740)  ALPH, THETA, XMA 
WRITE  130.220) 

UNIT  10  IS  THE  EDGE  PRGPfcRTV  CATA  SET 

WRITE  1101  G. R, THETA. ALPH, XMA, KL 
IF  (NOSE. EO. SHARP)  GO  TC  60 
00  40  I  ■  1 »  KL 

FLDFLDI3. I l=FL0rLDI3, I )/PI NF 

SUBROUTINE  WEDGE  CALCULATES  EDGE  PROPERTIES  FOR  THE  BLUNT  BODY 
AND  WEDGE  SECTIONS  Of  THE  CONE 

CALL  WEDGE  ( KL. XMA. THETAC, ALPHA , 1 DCTA.VB, XB) 


DISK 

34 

DISK 

35 

OISK 

36 

DISK 

37 

DISK 

38 

01  SK 

34 

DISK 

43 

DISK 

41 

DISK 

42 

DISK 

43 

01  SK 

44 

OISK 

45 

DISK 

46 

OISK 

47 

OISK 

48 

DISK 

44 

DISK 

50 

DI  SK 

51 

OISK 

52 

OISK 

53 

DISK 

54 

01  SK 

55 

DISK 

56 

DISK 

57 

DISK 

58 

OISK 

54 

OISK 

60 

DISK 

61 

OISK 

62 

01  SK 

63 

DISK 

64 

OISK 

65 

OISK 

66 

DISK 

67 

OISK 

68 

DISK 

64 

OISK 

70 

OISK 

71 
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DO  50  1*1. KL 

DISK 

72 

59 

Fl.cn.0f  I l*FLGFLD(3, I)*P|NF 

DISK 

73 

90 

CONTINUE 

DISK 

74 

XS-FLOFLDf 1.11 

DISK 

75 

WRITE  (30,2201 

DISK 

76 

WRITE  (30.340 

DISK 

77 

WRITE  (30.2201 

DISK 

78 

C 

DISK 

79 

c 

Dl  SK 

80 

kRUE  (30,260 

01  SK 

81 

kRITE  (30,2201 

DISK 

82 

DO  70  K*1,KL 

01  SK 

83 

WRITE  (30,270  K, ( FLOFLOI i ,K! , 1*1 , 51 

DISK 

84 

79 

CONTINUE 

DISK 

85 

WRITE  130,220 

DISK 

86 

GO  TO  140 

DISK 

87 

SO 

CONTINUE 

DISK 

88 

IF  (NOSE. EQ. SHARP!  RETURN 

DISK 

89 

c 

01  SK 

90 

c 

FLCWFIELD  DATA  FROM  THE  METHCO  OF  CHARACTERISTICS  SOLUTION 

IS 

DISK 

91 

c 

RE AO  FROM  UNIT  25 

DISK 

92 

c 

DISK 

93 

READ  (25, END-210)  ISTA, (FLOFLOI l.K) ,FL0FLD(2, Kl ,FLOFLO( 3, K1 

, FLOFLOOl SK 

94 

ll4,K|,FLCFLOI5,KI,K*i,KL) 

DISK 

95 

c 

01  SK 

96 

IF  IL.EO.O.ANO.rLOFLDI l.ll.GT.XS!  GO  TO  90 

DISK 

97 

GO  TO  100 

DISK 

98 

90 

CCNT INUE 

DISK 

99 

BACKSPACE  25 

DISK 

100 

BACKSPACE  25 

DISK 

101 

GC  TO  80 

DISK 

102 

>90 

CONTINUE 

DISK 

103 

FLCFLDI 2 ,KL) -0.1  DO 

DISK 

104 

WRITE  (30,250  ISTA 

DISK 

105 

WRITE  (3b, 220 

01  SK 

106 

WRITE  (30,260 

DISK 

197 

WRITE  130.220! 

DISK 

108 

DC  119  K*1,kl 

DISK 

109 

WRITE  (30,2701  K, 1 FLCFLDI 1 ,K 1 , 1*1 , 5) 

DISK 

110 

110 

CONTINUE 

DISK 

lit 

WRITE  130,220 

DISK 

112 

1*1*1 

DISK 

113 

DC  120  K-l.KL 

DISK 

114 

XI l.K 1* FLOFLOI 1,KI 

DI  SK 

115 

PIL,KI*FL0FIU(3,K)/P|NF 

DISK 

116 

CFPIIl  (L.K)  — FL0FUH2.KI 

DISK 

117 

RHCI l , K I -F  LGF  L0( 4.K1/RH01NF 

DISK 

118 

120 

VI l. K ) -FLOFLOI 5, Kl/V INF 

01  SK 

119 

IF  (XIL.KLI.lT.XS)  GO  TO  80 

DISK 

120 

c 

DISK 

121 

c 

INTERPOLATE  FOR  FUNCTION  VALUES  AT  KL  PLANES 

Dl  SK 

122 

c 

DISK 

123 

FAC* (XS~X(L-t,tll/(X(L,l)-XIL- 1,1)1 

DISK 

124 

DO  139  K*1,KL 

01  SK 

125 

PS  IK l«P< L- 1,KI«FAC*(PI1 ,KI>P(L-1.KI 1 

DISK 

126 

RNCS (KI*RH0IL—1,K1*FAC*(RhCI L, K 1-RHO (L~1,K)I 

DISK 

127 

CFPH1S(KI*CFPHI(L-1,KI«FAC*(CFPHI (L.KI-CFPH1 (L-1,KI> 

DISK 

128 

150 

VS(k)-V(L>l,K)4F  AC*IU(L,K)-VIL-1,K)I 

DISK 

129 

GO  TO  160 

DISK 

130 

140 

CCNT INUE 

DISK 

131 

DO  159  K-l.KL 

DISK 

132 

PS(KI*FL0FLD(3,K)/PINF 

DISK 

133 

RHCS(KI»FL0FL0(4,K)/RHC1NF 

DISK 

134 

CFPHIS(KI«-FICFID(2,KI 

DISK 

135 

VS(KI*rL0FL0(5,K)/VINF 

DISK 

136 

150 

CONTINUE 

DISK 

137 

160 

CCNT INUE 

DISK 

138 

CFPHISI11-9. 000 

DISK 

139 

CFPHISIKO-U.OOO 

DISK 

140 

WRITE  (30,3101  XS 

DISK 

141 

WRITE  (30,220 

DISK 

142 
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HR  I7E  130. 3201 

DISK 

143 

WRITE  130.2201 

DISK 

144 

DO  170  HC-l.KL 

01  SK 

145 

WRITE  130.4301  PS  1 WC 1 . RHCS  (MCI  .CFPHISfMCl.VSIMCI 

DISK 

146 

170 

CONTINUE 

DISK 

147 

WRITE  (30.22CI 

DISK 

148 

C 

DISK 

149 

c 

INVERT  EUGF  PROPERTY  ARRAYS  TO  UE  COMPATIBLE  WITH  THE  BOUNDARY 

0 1  SK 

150 

c 

LAYf  R.«»**AP  RAYS  PR!  VICUSLY  WENT  FPi'M  THE  LEE  WARD  PLANE  TO  THE 

DISK 

151 

c 

WINOwAin  PLANE  AN (1  HILL  NLW  GO  FROM  THE  WIN'JWAXI)  TO  THE  LEEWARD 

Dl  SK 

152 

c 

PLANh****«TH[ S  /UC.O  The  Ci’RPTCT  CALCULATION  OT  THE  TRANSVERSE 

01  SK 

153 

c 

EDGE  PRuPtRTY  DERIVATIVES  FOR  THE  KOUNOARY  LAYER 

0 1  SK 

154 

c 

DISK 

155 

DO  ISO  N*1 ,KL 

DISK 

156 

JK-KL-NM 

DISK 

157 

PSSIN) =PST JK) 

DISK 

158 

RHCSSINI»RHOS( JK 1 

DISK 

159 

FPH1SS(N>=CFPHI$IJK) 

DISK 

160 

VSSI Nl ■ VS C  JK  I 

01  SK 

161 

180 

continue 

01  SK 

162 

c 

DISK 

163 

c 

EDGE  PROPERTIES  ARE  CONVERTED  TC  FOURIER  COEFFICIENTS 

DISK 

164 

c 

DISK 

165 

CALL  FCMER  IPSS.APS.KL.il 

01  SK 

166 

CAU  FOXIER  IRHUSS.APHCS.KL, 1 1 

DISK 

167 

CALL  FOR  I E  R  « F PH  I S S , ACF PH  I ,*L . 2 1 

DISK 

168 

CALL  FCRIER  IVSS.AVS.KL.il 

Dl  SK 

169 

WRITE  130, 2eC) 

DISK 

170 

WRITE  (30,2201 

01  SK 

171 

WRITE  I3C.29C) 

DISK 

172 

WRITE  (30.220) 

DISK 

173 

WRITE  (10)  XS.APS.AKKCS.ACFPHI ,AVS 

DISK 

174 

DO  200  K*1 ,KL 

DISK 

175 

IF  (K.FO.KU  CC  TC  190 

DISK 

176 

WRITE  (30.300)  A  PS  1  K I  ,  ARHOSI  K I  ,  ACFPH  l  (  K)  .  AVSI K  1 

DISK 

177 

GC  TO  200 

DISK 

178 

190 

WRITE  (30.360)  APS (K I , APhOSI K 1 , AVS 1 K 1 

DISK 

179 

200 

CONTINUE 

Dl  SK 

ISO 

WRITE  130.220 

DISK 

lei 

1-0 

Dl  SK 

182 

XS*XS»DX 

Dl  SK 

183 

GO  TO  80 

DISK 

1 84 

c 

DISK 

185 

c 

OISK 

186 

210 

RETURN 

DISK 

1B7 

C 

DISK 

180 

c 

DISK 

189 

c 

Dl  SK 

190 

220 

FCRMAT  (1H  I 

DISK 

191 

240 

FCPMAT  1 ICX.39HNUK4EK  CF  PLANES  IN  THE  INVISCIO  DATA  »,I3» 

OISK 

192 

240 

FORMAT  1 10X,6HALPHA=,F6.2,5X,7HThETAC= , F6 . 2 , 5X , 5HM 1 NF= ,F6.2> 

01  SK 

193 

250 

FCRMAT  (5X.20HH/.LL  DATA  AT  STA  T  I  UN .  1  X  .  1  3 1 

01  SK 

194 

260 

f CRMAT  (2X. IhK, 10X.IHX.I 5X.3HPHI , 1 5X , |HP , 1 5X, 3HRH0, 15X. IHV 1 

OISK 

195 

270 

FORMAT  1 1X.I2.5I 4X.EL2.6I ) 

01  SK 

196 

280 

FORMAT  1  3 OX. 2CH)  IliJR  1 1 R  CI'EFr  1C  ITNT  SI 

DISK 

197 

290 

FCRMAT  I46X.3HAPS. 18 X , 5HARH0S . 1 7X , 6HACF"H 1 .17X.3HAVS) 

Dl  SK 

198 

300 

FORMAT  (30X.4IE15.B.7XI) 

OISK 

199 

310 

FORMAT  I33X.31HSTKCAKWISE  INTE R PQI  AT  I C N  AT  X  =,F12.6) 

OISK 

200 

320 

FCRMAT  1 1 H  . 35X, IhP , 2C X , JHRMC . 18X.3HPHI ,21X, IHV) 

DISK 

201 

330 

FORMAT  (30X.4IE12. 5,10X1 ) 

OISK 

202 

340 

FORMAT  1 10X.58HUNIF0PM  FLOW  STARTING  SOLUTION  FOR  THE  INVISCIO 

FLC01 SK 

203 

1W  FIELD) 

01  SK 

204 

350 

FCRMAT  140X.52HINVISC1C  FOGC  CONOITirNS  FCR  BOUNDARY  LAYCR  SOLUTICOISK 

205 

IN/47 X, 39HT  AKF  N  FROM  THE  INVISCIO  FLOW  FIFLO  DA T A/ 59X, 1 4MCR E AT E D  BYD I SK 

2C6 

2  THE /36X .  60HPETHCD  UF  CHARACTERISTICS  PROGRAM  FUR  NilNUN  I  FOR  M  FLOW  DISK 

207 

3F IELDS/&5X ,2HPY/54X,25hK.R.  BLACK  AND  C.H.  LEW  I S/54X , 25HARL  73- 

0 12DI SK 

208 

44  AUGUST  19731 

OISK 

209 

360 

FCRMAT  ( 30X,2(E15.B,7X),22X,F15.8I 

DISK 

210 

END 

OISK 

211 

208 
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C 

C 

c 

c 


10 


SUBROUTINE  ECGCOF  rrn- 

1NPLICIT  REAL*6(  A-H»0“2 J 
REAL*B  NOSE 

i5erft2Nn^0Sv/n«h'OFW,Vf"’  TEH»OPEWDx*0PEdOH,DUEKOX,OUEHDW,OVEWDX,DECOF 
1 VEkDk .OTE KDX , D  Tf  WUk ,Q Pknk2 .RUHE H, AMUEW .RUMUW  ECOF 

COFMCA  /ERSTPN/  KHC1 N F  , P I  NF r  TP  S.UF  S . K , PR L  , G,  XMA  crop 

COPHCN  /GICK/  ALPHA.THETAt.NCSF.RNOSE.WLST.X.XXaWX  ECOF 

CCPMbN  /IECCEF/  HI  ,b2  ,i>3,Glf  G2  .F1.F2 ,0E,  AL  ,EPS  ,CHI  .WINOPT.Ul  ECOF 

1LPR  CN  /INTiGI,/  ,c* ,M*  KEr>t'*KEND2*K«-X,K,L,NBLNT  1,1  NO.KPRT.LPRT,  KPR,  ECOF 
CCHMCH  /POEKEF/  UREf.CREF 

»«I!Mr-!/SeL^,w,C;.,.l?.til^Ni;ll?i!,Vh‘,l0l,»CM,,0,,'Th'lt)ll*C‘<w«101>»ECCF 


WWUOll.F.llOll.TwSIlCll.WIIOlI.El.NCloil.ilM.MOXlH.SiliS 
CCPKUN  /STAC/  P5TAG, 1  STAG. PNC, CWSTAG .MSTAG.ME 
CCPMUN  /XICORO/  XI  ,XX ! ,0X I .XICLC.DXOXI.OXCXXI 
DATA  SHARP ,0L UNT/ 5HSHAR P , 5H0LUNT/ 

SUBROUTINE  lECOEF  CALCULATE  GRCUPS  CF  EDGE  QUANTITIES  USEO  IN 
THE  COEFFICIENTS  OF  THE  GOVERNING  PARTIAL  DIFFERENTIAL  EQUATIONS 

PI*DARC0S(-1 .0001 
CP«G/IG-1.G00)*P 


ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

FCCF 

ECOF 

ECOF 

ECOF 

ECOF 


IF  INGSE. E 3. BLUNT .AND. IND.EQ.l I  X  JUNCT=RNOSE* ( PI /2.0D0- THETAC* AL PHEC OF 


1AI 


IF  INCSt.E0.6LUNT.ANC.  INC. EQ. 2  I  XJUNCT*RNOSE*( PI/2.000— THETAC  I 
IF  (NOSE • CO.PLUNT.AND.X.EQ.O.CCOI  GO  TO  10 
B I *2 .000*  X IW»OULWOX/Ut M 
B2*2.0f)0*X  iv*OVENOX/UEk 
B3«UEW»*2/HE 
Gl*l)UEkOk/UEW 
G2*DVehDK/UEk 
Ul-UFU/UREF 
FI *0.000 
F2*O.ODO 
MINDPT'G? 

CHI* OP ROW 2 /UEk**2/RH0E  h 
Al*Vth/UE* 

IT  (NCSE.EO.SHAPPI  DE*2. 000/(3. GOO*DSIN(  THETAC  1 1 
IF  (NOSE . Ed. ELUNT. ANO. K.EQ. 1 1  DE -2 .CDO*X 1 W/R k» • 3/CREF/UR EF 
IF  (NOSE.EQ.SHARPI  FP S*2 .0C0/3 .01)0  ttoF 

,i«!^0S£*F0*S,LUNT*AN0-XM-LE-XJUNCn  EPS“2*°®*xIhcUXDXIW*DCOSIXW/PNECOF 
1Q5E I/Kh  fcC  9F 

ir  wiNl35E*  EQ.BLUKT.AND.XW.GT**JUKCT  I  EPS-=2.00*X  I W*OXDX lh*DS I MTHF  TAECCF 
1C  l/RW  prop 

GC  TO  20  EC  CF 


ECOF 

ECOF 

ECCF 

ECOF 

ECCF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 


20 


81*0.500 
62*0.000 
B3«0.000 
G1*0.0D0 
G2«o.oro 
Ul* 1.000 

Fi*o.ono 

F2-0.000 

WINDPT*u.OOG 

CH1*C.C00 

OE*O.SUO 

E«>S*  0.500 

Al*0.000 

CONTINUE 

RETURN 

END 


ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 

ECOF 


1 

2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

16 
17 

ia 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
3? 
3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 


SUBROUTINE  ECVVIS  eulc 

IMPLICIT  RbAl*b(A-H,0-ZI 

REAL*8  KLEB.LFHLAP.LEwTRR  c»]| 

“I"?  p<2;l^l;3,.';N(2.101,3l,G(2,101,3llGNI2,I01,3l,T(2,EVIS 

1101a  31 , TN( 2 • 101 • 3) •! ( 2, 101 ,3  1 ,7N( 2 • 101 1  3 1 >C( ! 01 1 , CNI 131 1 . V ( 1 01 1 , YOE V  IS 


1 

2 

3 

4 

5 
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C 

c 

c 


10 

c 

c 

c 


20 

30 

C 

c 

c 

c 


21 1 101 > .ROM CF ( 101 1  _  EVJ5 

COMMON  /EOoh/  PFW tilth •  VF.N,TEW,DPEHDX»DPEWCrf,l>llEi(DX*OUEhOW»OVEWDX.OE:V IS 
IVEkOH.riTf  WDX.DTEhUh.DMhOk^.PMr.Eh.AMUEh.ROMUh  EV1S 

CCKMON  /FRSTRK/  RHB1NF  ,K  INF,  IF  S.UF  S  i  R  ■  PRL  .  0.  X**A  EVIS 

COMMON  /GASPRP/  LE.L AMI  10 1 1 .  Lt  hTKIUl  J 1  > .  PB  \NOL  C 101 1 1 PRANDT  1 1011  tCPEVIS 
It  1011 tCAHMAl 1C1) ,XKU< 1011 .RHOI 1011 .HSUMI 1011  EVIS 

CCKMON  / INTEGR/  I E . 1 M, KEND .KEND2. KLX • K . L •  NBLNT 1 , INOtKPRT ,LPHT iKPRtEV  IS 


1LPR 


EVIS 


40 

C 

C 

c 


50 

C 

c 

c 


60 


COMMON  /SOLPNT /  Cut  101 I.CNhl 10 1 1 . VMl 101 1 ,GHI 10 1 1 • TWl 101 ) .OWN! 1011  ,EV!S 
IFhM 101 1  ,FW|  lOll.TiiNf  lCD.Ciit  1011  .2hNl  lu l I ,X I K , DXDXl W , Xw , R K  EVIS 

CCM.MCN  /  SURF  AS/  ChALL.CVlNOt&twINn.VhALL.TilALL.  XTKl  503  I  •  1MX(  5001 1  XE  VIS 
1C1I500I,C|X(50C> .HhALL.TCCNW.KCl.KTh  ev  <s 

CCKMON  /TKUI  r.T  /  AST  AR  ,  AX  ST  AR  ,  ALAMOA,  r  SUrtL .  E  VSC  TV  1 101 )  t  PR  T .  EOVl  Ah  ,  EE  V  1  a 
1PLUS 1 101 1 1 ALFT  »L AMTKR  *  EVIS 

CCMKCN  /XICuRC/  Xl.XXI.DXl.XICLO.DXDXl.OXOXXI  EVIS 

CCKMCN  /1CG0RU/  ET A I N F , F T AFAC , ETA  (  1C  1 ) tOE T A(  10 1 1 • AOTFST , RAC E  T  A  EVIS 

01  KENS  I  ON  TAUllCll,  DAKPI101I,  EPSINI101I.  EPSOUTtlOll,  SC AL AR 1 10 1EV  I S 
II.  VELCTY (  101 1 >  YPLUSI1CII  EWJ* 

DATA  SHARP  .HI UNT /5HSHAMP. 5HRLUNT/  EVIS 

DATA  RE  I , V AN/3HR  Cl. 3HVAN/  EVIS 

OAT A  CONST /5KC0NST/  |*j| 

IF  1X1. EO. 0.0001  RETURN  EVJS 

CALCULATE  THE  PHYSICAL  NORMAL  DISTANCE  PROFILE  EVIS 

RETHET'0.000  EVJ* 

VI 11=0.000  |V*S 

VTRANS=USORT l2.cnO*XIh)/|RHOEh*UEh*RMl  EVIS 

00  10  J*2. IE  EV,S 

YIJI=VIJ-1I*YTHANS*I1 .000 /ROROE I J 1 ♦! .OOO/ROROE IJ-1 1 l*OET  A I J I  /2.CD0EV  1 S 
RE1HET=RETHET*IFWI  J  l*(  1.000-FhlJI  l+FMI  J- 1 )  *1 1 .  ODO-FWl  J- 1  lll*IVIJI-EVIS 

1VIJ-1I 1/2. 000  EVJf 

CONTINUE  |VjS 

CALCULATE  THE  CONSTANT  VSUBt  |VJ| 

DO  20  N*l. IE  EVIS 

VELCTYIN) «OSORTI I Fhl N I *UEh l**2*l GhIN 1*UEW 1»*2 l/0SURTCUCW*«2MGWl  IEEV  I  S 
n»uthj**2i 

NN-N-1  "** 

IF  I VELCTYIN I .CE. J .99001  GC  TO  30  EVIS 

CCM INUE  EVIS 

YSU6L*YINN>*«YINNHI-VINN1  !• I0.99DG-VELCTYCNN1  I / 1 VELCTVI  NN*  1  I -VE  LCE V l  S 

llTINNII  |VjS 

CALCULATE  THE  TOTAL  SHEAR  FOR  USE  IN  THE  VAN  ORIEST  DAMPING  TERM  EVIS 

CALCULATE  THE  SCALAR  VELOCITY  FUNCTION  USEO  IN  THE  EOOY  VISCOSITY  EVIS 

00  40  N=1 ,  IE 

DUCY'FWNIN  l*RHOIM •UEh*Rh/nS0RTI2.0D0*XIWl 
IF  IK.EQ.1)  OWDY=O.OCO 

IF  IX.GT.il  Dhr>V«G«NIM»KHCIM»UEN*Rh/DSORTI2.0DO*XINI 
TAUINI=XMUIN)»ULh»r>SORTirUOY»*2*r»MDY*«2l 
SCALAkCNl=Ufh»i;S0RTIUUCY»*2*ChDY*«2l 
CONTINUE 

IF  IEOYLAh.EQ.REIK  GO  TC  7C 


CALCULATE  THE  VAN  DRIEST  DAMPING  TERM  FOR  THE  INNER  LAW 
DO  50  N-l.IE 

VhPLUS=CWALL*RHriNF«IIFS/RHUI  1 1/0 SORT!  TAUC  1 1 /RHOI N  1 1 
ASTAR»26.C'0o»DEXP|-5.900»VhPLUS» 

DAMP  I N I a( 1 .OOC-UEXPI-YINI*OSCRI(TAUINl*RHOINl J /XHU IN 1/ASTAR >  1**2 
CCNT INUE 

CALCULATE  THE  INNER  EOOY  VISCOSITY.  VAN  ORIEST  EO. 

DO  60  N«l,  IE 

EPS  ININ  1*>RH0 INI*  AKSTAR*»2*Yl  N  1**2*DAMPINI*  SCAl  AR  I N I 

CCNT [HUE 


EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 

EVIS 


6 

7 

8 
9 

13 

11 

12 

13 

14 

15 

16  - 
IT 
19 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
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46 
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C 

c.i 

c 

70 


so' 


90 

100 

C.-- 

c 

c  • 

C’  . 


no 

c 


120 

130 

140 

C 


SO  TO  100 

CALCULATE  THE  INNER  EDDV  VISCOSITY,  REICHAROT  EQ. 

CONTINUE 
UPLLST=1 .000 
UPLUS*O.ODO 
UPL-C.000 

epsiNin*o.ooo 
YPLUSm  =  u.CDO 
DO  90  N»2,IE 

■VOPLUSrCWALL*RHniNE*UF  S/P  MC(II/n  SORT  (TA1K  1)/RH0(N)I 
YPLUSA=3.65Uu/  ( V0PIUS*0. 34400) 
¥§silil$fM=Y(N|*DSORT(TAU<l)*kHniM)/XMJfN) 

EPS1MHI  =  XHUIM*0.4  00»(YI’HjS  INI-YPLUSA*OTANH(  Y PLUS  IN  I /YPLUSA 1  I 

IF  (VOPLUS.FC.O.OCO)  GO  TO  90 

CCNTINUE 

FACTR=DSCRT< 1  .ODD* VUPLUS»UPLUS I 
EPSI  TR*E  PS  IMM*FACTR 
UPL2=UPLUS 

iPLUsiNUin/2lCDo°*UPI'US*V0P,'US,/,l'OO0*EPS,TR,*u,>LLST,*,VPLUS,N,_ 
IF  (UPL2.EC.C.0DGI  GO  TC  80 

IF  IDABSMUPLUS-UPL2I/UPL2I.GT.0.51C0I  GO  TO  BO 

FPSIN(N)>EPSIMM*0SQRTI1  .ODO+UPLUS*  VOPLUS  I 

UPLLSTcl 1 .ODO*UPLUS*VOPLLSI/I l .000»t PS  INI N> I 

(JPL-UPLUS 

CONTINUE 

CONTINUE 

CALCULATE  THE  OUTER  EOCY  VISCOSITY 

RLEB  IS  THE  KLEUANOFF  INTERN  IT TANCY  FACTOR 

00  110  N=1 .IE 

XL £6=1. GUO/ I l.CnCU5.5CC*t  YIN  l/YSU4LI**b> 

CPSOUTIN) -RhCI NJ *ALAMCA»*  2*YSUBL* *2* SCALAR (N)*KLE6 


CUT-C.ODO 
DC  140  Net, IE 

IF  ICUT.EO.I.OCOI  GO  TC  IZO 

IF  I  EPS  IN  I M ,GE . EPSOUT INI )  CO  TO  120 

EVSCTYIN)=FPSIN(NI 

CO  TO  130 

OUT =1.000 

EVSCTYINI=EP5CUTIM 
EPLUSf  N|.=  £vSCTVf  M/XMU<N) 

CCMINUE 

IF  IPRT.NE. CONST!  CALL  TRBPRL  (TAUaR E THE T I 
RETURN 

END 


EVIS 

77 

E V  IS 

78 

EVIS 

79 

EVIS 

80 

EVIS 

81 

EVIS 

82 

EVIS 

83 

EVIS 

84 

EVIS 

65 

EVIS 

86 

EVIS 

87 

EVIS 

8B 

EVIS 

89 

EVIS 

90 

EVIS 

91 

EVIS 

92 

EVIS 

93 

EVIS 

94 

EVIS 

95 

EVIS 

96 

YEVIS 

97 

EVIS 

98 

EVIS 

99 

EVIS 

100 

EVIS 

101 

EVIS 

102 

EVIS 

103 

EVIS 

104 

EVIS 

105 

EVIS 

K-6 

EVIS 

107 

EVIS 

1C8 

EVIS 

109 

EVIS 

110 

EVIS 

111 

EVIS 

112 

EVIS 

113 

EVIS 

114 

EVIS 

115 

EVIS 

116 

EVIS 

117 

EVIS 

119 

EVIS 

119 

EVIS 

129 

EVIS 

121 

EVIS 

122 

EVIS 

123 

EVIS 

124 

EVIS 

125 

EVIS 

126 

EVIS 

127 

EVIS 

128 

SUBROUTINE  EGPROP 
IMPLICIT  REAL*B<  A-H,0-Z) 

REAL* b  NOSE 

COMMON  /BLUNT/  Z*M  1 00  )  ,  XU  I  100  J ,  RR(  100 1  ,PEO  1 1U0 1  ,UEBI  1001  •  TEBI 1001  .EPRP 
IXMBUOul.NBLUNT.NkEOGE.NNPLNB.NPLPLl  ’  6  "  ‘  '  *|p" 

CCMMCN  /CJNICL/  PEI61),TEICl>,UF(bll,VFI6n,nPE0Hl61),DT£DR(6l  I.OUCPRP 

1EDUI61 1 .OVEOWIfal  lf0PEnh2IGl) .ROWE  161)  EPRP 

UFI,C,TELG'VEOG'PcnG,mrr,D*»UTeGOH,OUEGDX,OUEGOH,OVEGEPRP 
1DX,[)VEGDM.GPFG0X  >  CPcCPli .  n2PDW2  ,«HOl  DC,  AMUE  OG,  R0WIJEG  EPRP 

COMMON  / b  DOW/  PEH,ULh,vrw,TEW,CPFMDX,nPEHDW,DUL  nDX ,  DUE  ROW,  DVEWUX  ■  0£  PR  P 
IVIRDM,nirhOX,UTt«UK.I>MMIH2,AHL-E-.PMUF«,KCMUH  RUM,  UVE  WUX  ,  0|  PkP 

lflFPnuNnii>n!/nTr^iC?’l'I:‘!,Vt2,,J,’t2nX'DIC'!1,X,L’UE2D)'»,lve2OX»DPe?0‘'*nEpRp 
1UE2DW, DVt  ZUW ,DTF 20W , APUl / , R0PU2 ,R2 ,RH0r2,  K EX2  FPRP 

CCMMCN  /FINDir/  AI 101  )  ,  8UI  101 1  ,(!(  101  !  ,CC  I  1 01 1 ,  ODI  101 1 1  DC  101 1  ,  E  1 1 01EPRP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
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ll.CRI 

EPRP 

IS 

CCKHON  /G£ V*/  ALPHA. THFTAC.NCSE.RNOSE.hLST.X, XX, WX 

EPRP 

16 

CCPHCN  /IN1IGR/  IE . IH,KENn,K£ND2,KLX ,  K  •  L  <  NDLhT  1 , l NO, KPRT 

.LPRT.KPR 

.EPRP 

17 

1LPR 

EPRP 

IB 

CCPHCN  /OLD/  TGL  £1 61 1  ■ VOLD 16 1 1 «  CVC1  D I  6  1 J 

EPRP 

19 

CCFHCM  /GLBiOG/  »1 ,UE 3. KLMU3 

EPRP 

20 

CCPHCN  /PHE41F/  URFF.CRbF 

EPRP 

21 

CCPHCN  /POLYCC/  CPAIRL  161  .CPA1  PHI6),ENA|RL  161  ,  ENA  IRHI6)  , 

CHUA IRI6) 

.EPRP 

22 

ICPUHE 161  ,imnf  {6l,C“UAWl6l  ,01FAfl{6l,CPC02U6l,CPCa2HI6), 

ENC02LI6) 

lEPKP 

23 

2ENtU2HI6»,CKUC02<6),UlFCCJ2<6) 

EPRP 

24 

CCIKHCN  /SOL  PM/  ChllOll.Chhl  1C1J.VH1  101  >  .  GUI  101 1  ,  TWI  101  1 

.GWNI 1011 

.EPRP 

25 

IfHKlf  1011  .hkl  Itil  1 .  IW.'ll  101  ),  ;«.(  101  )  ,  2KNI  1C1  >  »X  I  W  .OXDXI  W  .  XM 

,RU 

EPRP 

26 

CCPMON  /ST AO/  PSTAG.TSTAf,,PNC.O>.STAG,MSTAG,Ht 

EPRP 

27 

COPMCN  /XICUKD/  XI, XXI, Ex  1  .X  |L1  U.0XCX1 .OXDXXt 

EPRP 

28 

CORHCN  /XSDLVF/  XSTAI  ICO  )  , UXHAX.IIX  , GXOLD ,  DX1  , NS Jl  VE 

EPRP 

29 

LATA  filUM  ,SFAFP/5ht»LUM,5hSHABP/ 

EPRP 

30 

IF  LNCSE.EO.BLUNTI  GO  TO  AO 

EPRP 

31 

EPRP 

32 

SHARP  COKE  tOGE  fiU ANT  1  TIES  ARE  OBTAINED 

EPRP 

33 

EPRP 

34 

IF  IL.GT.ll  GC  TO  20 

EPRP 

35 

AKK> 1.000 

EPRP 

36 

OPENOK-O.ODO 

EPRP 

37 

OTtkDX-O.DDO 

EPRP 

38 

DOE«DX»O.ODO 

EPRP 

39 

CVENDX-0.JD3 

EPRP 

40 

CALL  SHARP]  (AKKJ 

EPRP 

41 

PEfKl-PEUG 

EPRP 

42 

TE(K1=T£0G 

EPRP 

43 

UEIKt-UEDG 

EPRP 

44 

VE(KJ«V£OG 

EPRP 

45 

DPFDWIKi=DPbGCu 

EPRP 

46 

DT£0MKj  =  DT£GCk 

EPRP 

47 

OUEDNt*)«DUbGCW 

EPRP 

48 

DVLONIK J-DVEGCW 

EPRP 

49 

DPE0H2I <  1  e02PL’W? 

EPR“ 

53 

AC6E<Kl«AHCL'EG 

EPRP 

51 

IF  IK. EO.  1  )  C-C  TO  10 

EPRP 

52 

IF  ICRI.E0.1.0D0I  GO  TC  10 

EPRP 

53 

CALL  SHAfPl  ICR  1 ) 

EPRP 

54 

CONTINUE 

EPRP 

55 

PEUbPEOG 

EPRP 

56 

UEh«ULOG 

EPRP 

57 

VEk* VEDG 

EPRP 

58 

TEk»T£PG 

EPRP 

59 

OPENUUsUPEGOR 

EPRP 

60 

CUfWUh«DUEGDb 

EPRP 

61 

DV€HOW«DVb.GDb 

EPRP 

62 

OTtHLw’OTEGOh 

EPRP 

63 

DPMJH2- 02PDW2 

EPRP 

64 

RHCEH>fHOEDG 

EPRP 

65 

CALL  POLY  ITEh,5«C HU A 1 R  ,  AHUE  h  l 

EPRP 

66 

AHUEb'AHUtb* 1 . 0-7 

EPRP 

67 

RCPUN>KHOFb*APUEh 

EPRP 

68 

CONTINUE 

EPRP 

69 

P£2»PEIK1 

EPRP 

70 

TE2*TE IKI 

EPRP 

71 

UE2«UEI<1 

EPRP 

72 

VE2«VEIKI 

EPRP 

73 

DPE2UM‘DPEDW(K| 

EPRP 

74 

01 E2UW*  DTE  OR  ( K 1 

EPRP 

75 

0UC2DW*  DUE  OKI K 1 

EPRP 

76 

0VE20b» OVE  0* I K 1 

EPRP 

77 

DPE20X-0PFW0X 

EPRP 

78 

OTE2DX=OTFhOX 

EPRP 

79 

OUE20X*0UCH()X 

EPRP 

SO 

DVEZOX-OVEhDX 

EPRP 

81 

O2PD«2«l)Pt0bZIKI 

EPRP 

82 

RHCC2°RMWE IK> 

EPRP 

83 

CALL  PCLV  ITE2.5.C HUA 1 R , AMUE 2 1 

EPRP 

84 

AHUE2>AMUE2*1.0-7 

EPRP 

85 
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RCMU?»PH0E2*AHUE2 
UE0>UE2 
RCKU0«P0HU2 
IF  ll.EU.ll  CO  TC  30 
P£h«PE2 
TEI.-TE2 
OEW-UE2 
VEfc*VE2 
DPCWUhc()PE20H 
OTEhOta>OTE20M 
DYIKCh  =  UVr?0Vi 
OtCWOh°UUE2nw 
BHCEW=RHPE2 
0Pfctlh2'D2P0W2 
AHUE W=AKUfc2 
RCNUM*P0KU2 
A  30  CONTINUE 

IF  ll.EU.ll  XX-X 
IF  ll.NE.l)  XX-X-CX/2.0DO 
CAU  GHTRY  IXX.R0.20I 
CALI  GHTRY  IX, R?, 221 
Rh*R2 

IF  (CRI.LT.l.ODGI  RW-RO 
00  TO  80 
40  CONTINUE 

C 

C  BUNT  CONE  ECGE  QUANTITIES  ARE  OBTAINED 

C 

XI«X 
XX*K 
I  SM*l 

IF  IIKO.EO.I)  CALL  BLUNTI 

IF  (IND.E0.2)  CALL  BLUNT2  IISNT) 

PE2-PC0G 

TE2*m>G 

UE2*UL0G 

VE2*VL0G 

DPE2DX=0PECnX 

UTE20X=DTfcC0X 

DUE2CX«DUtGDX 

0VE20X-DVFGDX 

OPE20N“CoCGOR 

0TT2Ck'(>TEGDh 

CUE20w» UUEGOh 

0VE2Dm>|)VEGDw 

RHC  E2*RHC  E  OG 

CALL  PGLY  (TE2,5.CMUAI R. AMUE2I 

AKUF2«AMUE2*i.O-7 

RG*»U2«KHUF2*APUE2 

UE0*UE2 

RCHU0-R0MU2 

IF  ICRI.LT.l.ODO)  GO  TG  50 

PEK-PE2 

TEfc*TE2 

UEfc'UE  2 

VEW* VE2 

DPEWOX'OP  E2DX 

CTEL0X«f)Tt2IIX 

DUEMDX*DUE  20X 

0VFWDX»DVE20X 

OPEWOw*OPt2DK 

UTERCh=0TF20>. 

DUERDh'TJUE  2DM 
OVEROh°DV  E2DR 
RHCFW.RH0E2 
ANUE  U° AMUE  2 
R0HUR*P0HU2 
DPhl)M2*02P0W2 
50  CALL  GHTRY  IX.R2.22) 

IF  IL.EO. II  GC  TO  60 
ISNT-2 


EPRP 

R6 

EPRP 

BT 

EPRP 

88 

EPRP 

89 

EPRP 

90 

EPRP 

91 

EPRP 

92 

EPRP 

93 

EPRP 

94 

EPRP 

95 

EPRP 

96 

EPRP 

97 

EPRP 

98 

EPRP 

99 

EPRP 

100 

EPRP 

101 

EPRP 

102 

EPRP 

103 

EPRP 

104 

EPRP 

105 

EPRP 

106 

EPRP 

107 

EPRP 

108 

EPRP 

109 

EPRP 

110 

EPRP 

Ill 

EPRP 

112 

EPRP 

113 

EPRP 

114 

EPRP 

115 

EPRP 

116 

EPRP 

117 

EPRP 

118 

EPRP 

119 

EPRP 

120 

EPRP 

121 

EPRP 

122 

FPRP 

123 

EPRP 

124 

EPRP 

125 

EPRP 

126 

EPRP 

127 

EPRP 

128 

fPRP 

129 

EPRP 

130 

EPRP 

131 

EPRP 

132 

EPRP 

133 

EPRP 

134 

EPRP 

135 

ERRR 

136 

EPRP 

137 

EPRP 

138 

EPRP 

139 

EPRP 

140 

EPRP 

141 

EPRP 

142 

EPRP 

143 

EPRP 

144 

EPRP 

145 

EPRP 

146 

EPRP 

147 

EPRP 

148 

EPRP 

149 

EPRP 

150 

EPRP 

151 

EPRP 

152 

EPRP 

153 

EPRP 

154 

EPRP 

155 

EPRP 

156 
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60 


70 

80 

C 

c 

c 


c 

c 

c 

c 


90 


100 


X-X-DX/2.OD0 

xx«x 

IF  IlNn.EO.l)  CALL  BLUNT! 

IF  I lND.tO.2 I  CALL  BLUNT2  11SNTI 
UEO-UEDG 

CALL  PLIV  mDG.S.CMUAIR.AMUECCI 
AHUFDG*AHUFIlG»l.D-7 
RCHUEC^K HOCOG* AHUEOG 
R0FU0«F0KUEG 

IF  (CR1.E0.1 .OCO)  GO  TC  60 

PEN*PfcOG 

TEk«TEOG 

UEN-UEDG 

VEMVEDG 

OPCNCXsOPEGOX 

OTEMUXsOTEGDX 

DUEWDX'OUFGOX 

OVEWOX-OVtGOX 

DPEnOn«DPCGDh 

OTEWU»«OTEG(>h 

OUIUOU'UUEGDN 

DVEWOWUVEGDW 

DPfcDU2<-02PDW2 

RHCEV=PHOEOG 

CALL  POL V  (TEN.5.CMUA [R.  AMUEti I 
AKl>EN*APUF  N*1 .0-7 
ROFUN*F.HOE  U*  APUEM 
CCNTINUE 

CALL  GMTRV  (XX.PO.ZOI 
X*X1 

IF  <IN0.L0.2I  GG  TO  80 

IF  fX.LT.XHINBLOLU.CM.X.GT.XeiNWPLNBM  GO  TO  8C 

DC  70  J*  NBLPL  I  .F.WPLMB 

IF  IX.NE.XeiJI)  GO  TC  70 

N>J-NBLUNT 

TCL0INI«TF2 

V0L0INI-UF2 

CVCLD(NI>VE2 

CCNTINUE 

CONTINUE 

PROPERTIES  AT  THE  OOUNCART  LAYER  EOGE  ARE  CALCULATED 


EPRP  157 
EPRP  158 
EPRP  159 
EPRP  160 
EPRP  161 
EPRP  162 
CPRP  163 
EPRP  169 
EPRP  165 
EPRP  166 
EPRP  167 
EPRP  168 
EPRP  169 
EPRP  170 
EPRP  171 
EPRP  172 
EPRP  173 
EPRP  179 
EPRP  175 
EPRP  176 
EPRP  177 
EPRP  178 
EPRP  179 
EPRP  180 
EPRP  181 
EPRP  182 
EPRP  183 
EPRP  189 
EPRP  185 
EPRP  186 
EPRP  187 
EPRP  188 
EPRP  189 
EPRP  190 
EPRP  191 
EPRP  192 
EPRP  193 
EPRP  199 
EPRP  195 
EPRP  196 
EPRP  197 
EPRP  198 


EPRP  199 

IF  INCSE. EO. BLUNT .AND. L.EO.l 1  FNC“OSORTI 2 . OUO* RH0E2 *0UE2 0X/AHUE2 1  EPRP  20) 
IF  ll.EG.l.DR.K.GT.n  GO  TO  90  EPRP  801 


EPRP  202 

THE  VALUE  OF  XI  IS  INTEGRATED  TO  X  USING  THE  STEP-AT-A-T I  HE  EPRP  203 

S1HPS0NS  FCRPULA  FOR  I  NT EGR AT  I CN  OF  AN  INDEFINITE  INTEGRAL  EPRP  209 


EPRP 

DX]*DX/6.OCG*(Ut2*RGPU2*R2**2*9.0D0*UEO*R0MUU*R0*«2*UE3*RORU3*R3**EPRP 
121  EPRP 

XI>XICL0«DXI  FPRP 

DXCX 1* 1 .000/1 KGPU2*UF2*R2*  *2 )  EPRP 

XXI *X1CLD*UX/29.C90*( S»ODd*UE3*ROMU3*R3**2*d.ODO*UEO*ROMUO*RO**2-UEpR° 
1E2*RCMU2*N2**2I  EPRP 

X  ICLC=X  I  EPRP 

DX0XX!a1.0D0/l RGMUO*UEO*R 0**21  EPRP 

CCNTINUE  EPRP 

IF  IK.GT.l)  GC  TO  100  EPRP 

CREFbROMUU  EPRP 

URCF"UFW  EPRP 

R3»K?  EPRP 

UE3aUE2  EPRP 

RCPU3*ROHU2  EPRP 

CCNTINUE  EPRP 

IF  (NOSE.EO.SHAPPI  GO  TO  110  EPRP 

OPEWDX«DPE?l)X*Oxnxxl  EPRP 

DTEWDX°UT  E  2UX*DXDXX I  EPRP 

DUEWDX*0Ub?DX*OXnxXI  eprp 

DVEWOX*OVE2()X»OXOXXI  EPRP 

OPE20X>0PE2DX*0X0XI  EPRP 
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.  DTF2DX=0TE2OX»DXDKI 
0UF20X- DUt 2DX*DXDXI 

DVF2nx=nvi2Dx*oxoxi 
Jto  CONTINUE 

IF  CL.tU.l  I  CC  in  120 

xw»x-ox*i  i.c-no-CRi  i 

CALL  GMTR  V  Uh,RW,2DUK) 
XIR-XJ 

dxcxih=oxi>xi 

IF  (CRI.EC.l .ODO)  GO  TO  120 
XIW>XX] 

0XGX1H-0XDXXI 
120  CALL  EUGCOF 
RETURN 
END 


EPRP  226 
EPRP  229 
EPRP  230 
EPRP  231 
EPRP  232 
FPRR  233 
EPRP  234 
EPRP  235 
EPRP  236 
EPRP  237 
EPRP  238 
EPRP  239 
EPRP  243 
EPRP  241 
EPRP  242 


C 

C 

c 

c 


10 


SUBROUTINE  ENERGY 
IMPLICIT  REAL*8t A-H.C-ZI 
REAL*8  NOSE.IERLAM.LERTRB 

COMMON  /FRSTRM/  PHOINF ,P I NF. TF SiUFS, R ,PRL .0. XMA 


ENGV 

ENGY 

ENGV 

ENGY 


COMMON  /C.ASPRP/  LcWLAHHOl  I.LEWTR  8(131),  PR  ANDL  1 10 1  i  .PR  ANUT  (  1  01 1  ,CPC  NGY 
1IU1  J,  GAMMA!  101)  .  XMUl  I  Cl  I  •  PMC  I  101  I  ,HSUM(  101)  ENGY 

COMMON  /GEOM/  ALPHA, TMETAC ,NCS E.RNGSE . ML S T ,X. XX, NX  ENGY 

COMMON  /1ECCEF/  D 1 ,62 , E3,G 1.G2 ,F I , F2 , BE , AL , EPS ,CH I ,J 1 NOPT ,UI  ENGY 

COMMON  /I  MEGS/  IE,IM,KtND,KEN02,KLX,K,L,NBLNT  t, INU.KPRT ,LPR T ,KPR  ,ENGY 
1LPR  ENGY 

COMMON  /POECCF/  A3| 10 1 1 , A  1 ( 1 C 1 » , A2 1  1011 , A3I 131  >, A4 UCl > , A5 I  1  G1  )  ENGY 
COMMON  /SPLPNT/  CHl  101),CM>(  101 1 »  VW(  lull  ,G,I  1011  ,  TW(  101)  ,C,KN|  131 1  ,  F  NGY 
1FNM  IJII.FWI  101l.Th.NI  IClt  ,  ZH  (  1011 , 1V.N1  lull  ,X  I  *  .DXOXI  w  ,  XH,  R  U  ENGY 

CCMMCN  /TRANSN/  KTRANS,KCNStT , X  IF , CM  1 2 1  131) ,CH IMAX ,Xa AR  ENGY 

COMMON  /TR BLN T /  ASTAR , AXST AP , Al AHDA , V SUBL , EVSC TV! 10 1 » , PH T, EDYL Ah , EENGY 
1PLUSU01),ALET,IAMTRR  ENGY 

CCMMCN  /XI CUP 0/  X I ,  XX  I  ,DX  I  , X  ICLC, 0X0X1  «I)XDXX I  FNGY 

COMMON  /Z  COIIMO/  FTAI\F,ETAFAC,ETA(  101),  DETAI  1011,  AUTFST.KAOETA  ENGY 
DIMENSION  RL'MUll  101)  ,  RCMU  IN  (1011,  RUMU2I101I,  RGMU31101),  R0HU3N I  ENGY 
11011  ENGY 

DIMENSION  RCMU2N1 101)  ENGV 

DIMENSION  FMNNI101I,  CHN'N(lCl)  ENGY 

DATA  SHARP .BLUNT /5HSHARP, SHRLUNT/  ENGY 

ENGY 

SUBROUTINE  ENERGY  SETS  UP  THE  COEFFICIENTS  OF  THE  PARTIAL  ENGY 

DIFFERENTIAL  ENFRGV  EOLATION  ENGV 

ENGY 

DO  10  J=1  .  IF  ENGY 

RCMU1IJI  =  CMI  J>/PKAr,Ol(J>*(  1.:D0»X1F«-£PIUS(  J)»PRANDlt  JI/PRANDTI  Jll  ENGY 
RCMU2IJI=CmI  JI/PRANDL  IJ)»I1.-:0C»XIF*CPLUSI  JIPPRANOLI  J  I /PR  A  NOT!  J)  l-ENCY 
lCWIJt*ll.0t)04XIF*:PLI)SlJ)  I  ENGY 

RCMU3I J I  *  I C« I J I  /  PS  A'lOL  <JI*I<LENLAM(JI»XIF*EPLUSIJI*PR  ANOLI  JI/PRANDF.NGY 
ITI  JI*LIWTFC(  J>  )-l  1.000*XlF*E  PLUSI J I  *PR  ANOl  I J I /PS  ANDT  I  J  I  I  1  I  *HSUM(  J  1ENGY 


1 

2 

3 

4 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IB 

19 

20 
21 
22 
2i 

24 

25 

26 
27 
2B 
29 
33 

31 

32 

33 


2*ZRN ( J 1 

ENGY 

34 

CONTINUE 

ENGY 

35 

CALL  DIR1V 

IRC MU 1, ETA, IE, 1, PC MU INI 

ENGY 

36 

CALL  OERIV 

CR0MU2, ETA, It, l,RrMU2N) 

ENGY 

37 

CALL  OtnlV 

1 K  C*MU3,  E  T  A  ,  |  b  ,  1  ,SC  “U3NI 

ENGY 

38 

CALL  OCR  IV 

IFMN,ETA,lE,l,FbNM 

ENGY 

39 

CALL  ULR1V 

ICbN,ETA,|E,l, GbNN 1 

ENGY 

43 

DO  20  J«l, 

IE 

ENGY 

41 

«OlJI>ROMllll  J)*U1 

ENGY 

42 

A11JJ-R0MU1N1 J)»U1-VW< Jl 

ENGY 

43 

A2(J)*U.0PJ 

FNGY 

44 

A3IJ)=-03*Ul*IRnMU2l  JI*IFhNI  Jl**2»rt><  J» 

•FbNNI J l  +  GWN ( J I*»?4GW|J 1*  GWENGY 

45 

INI  Jl  )*R0MII2NI  J  I*  IFHI J  l«r».NCJ  J*GN(  JI*GWN|  J  ]  I  I  .RCMU3NI  J  I  *U  l  ENGY 

IF  (K.FQ.i  I  A3CJ)=-03*lh()MU?IJI»IFWN(  J)**2*FW<  JMFWNN(J)  1  ♦RUHU2N1  JENGY 

n*«rm  ji»r«Ni  jii  mpcmujnc  ji  engy 

A4(  J  l=~2. 01)0*  X!U*FW(J)  ENGY 

A5IJI«-0t*G«< J)  ENGY 

IF  IK.FQ. II  AS  I J 1  =  0.000  ENGV 


46 

47 

48 

49 

50 

51 
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20  CONTINUE 
RETURN 
END 


ENGY  52 
ENGY  S3 
ENCY  54 


SUBROUTINE  FC3  1 X , XI , X2 , X3 ,F 1 , F2 , F3, FX 1 

F03 

1 

IMPLICIT  REAL  *0  IA-H.G-21 

F03 

2 

c 

F03 

3 

c 

SUBROUTINE  F03  CALCULATES  THE  FIRST  OERI VATI  VE-FX-CORRESPilND  ING 

FD3 

4 

c 

TO  PCINT  X  USING  3  POINT  LAGRANGI AN  DIFFf KENT  I  AT  ION  FORMULA. 

FO  3 

5 

c 

FD3 

6 

c 

ASSUMES  XI  .IE.  X  .LE.  X3. 

FD3 

7 

c 

FD3 

8 

A1*2.0*X-X2-X3 

F03 

9 

A2'2.0*X-X I-X3 

F03 

10 

A3*2.t*X-Xl-X2 

F03 

11 

01-CX1-X2I*< XI-X3I 

F03 

12 

02*  CX2—X 11*1X2— X3I 

FOB 

13 

D3*IX3-X1 )*(X3-X2I 

FOB 

14 

Cl-Al/01 

F03 

IS 

C2*A2/02 

F03 

16 

C3-A3/03 

FOB 

17 

FX«C1*F1*C2*F2»C3*F3 

F03 

IB 

RETURN 

FD3 

19 

END 

F03 

20 

SUBROUTINE  FC5  ( X ,  X 1 ,  X? ,  X3  ,X4 ,  X5 .  F 1 .  F  2, F  3  ,  F4  ,F  5.  F  X I  FOS 

IMPLICIT  REAL'S  U-H.O-ZJ  FD5 

F05 

SUBROUTINE  F05  CALCULATES  THE  FIRST  OERIVAM  VE-FX— CORRE  SPPNO I NG  F05 
TO  POINT  X  USING  S  POINT  LAGRANGI AN  0 1 FFc RENT  I  AT  I  ON  FORMULA  FOS 

FOS 

ASSUMES  XI  .LE.  X  .IE.  X5.  F05 

FOS 

Al*f  X-X4I*IX-XSI*I 2.0*X-X2-X31MX-X?]«CX-X3I*I 2.0*X-X4-XSI  FOS 

A2*l X~X41*IX-XSI*I2.0*X-XI-X3I ♦( X- X l I  * ( X- X 3 1  * < 2.C«X-X4-X5I  FOS 

A3*l  X-X4)»(X-X5I*<  2 .0 »X-X 1-X2 I • « X-X 1  I « I X-X? I • I  2.0 *X-X4-XS I  FOS 

A4*(X-X31*IX-X5IM2.0»X-X1-X2I  *{X-XI  l*|X-X2l • { 2. J*X- A3-XS I  F05 

A  5*1  X-X31*IX-X4)*l2.0*X-Xl-X2l*IX-xn*IX-X2)*U.0*X-X3-X4l  FOS 

D1*1XI-X2I*CXI-X3I*1X1-X4  I  •*  XI-X5  I  FD5 

D2*T  X2-X1 I«(X2-X3I*(X2-X4I'IX?-XSI  F05 

03* I X3-X1 I  *  ( X3-X2 I M  X  3  -  X4 I •  C  X3-XS I  FOS 

D4«IX4-X1 >•< X4-X2 I -I X4-X3IM X4-X5)  F05 

DS*IXS-X1)*(XS-X2)*(XS-X3I»(XS-X4I  F05 

Ci«AI/01  F05 

C2* A2/D2  FOS 

C3=A3/03  F05 

C4* A4/D4  FOS 

C5*A5/D5  FOS 

FX«C l*Fl*C2*f2+C3*F3*C4*F4«C5*F5  F05 

RETURN  FOS 

END  FOS 


t 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 
li 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 
2b 
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SUBROUTINE  FCR1 1 R  (AR,BR,KL.KKI 

C  BR  IS  THE  OUTPUT  ARRAY  OF  FOUR  IER'  COEFFICIENTS 

C  KL  IS  THE  NUHBtR  OF  INPUT  OATA  POINTS 

C  KK  *  1  OUTPUTS  COEFFICIENTS  FUR  A  COSINE  SERIES 

C  KK  -  2  OUTPUTS  COEFFICIENTS  FCR  A  SINE  SERIES 

C  AR  IS  THE  INPUT  ARRAY  CF  FUNCTION  VALUES 

IMPLICIT  REAL-81 A-H.O-Zl 
DIMENSION  AR(lS)t  BR4 15) 

PI-DAPCOSI-1  .COO 
GaCFLOAT IKI- 1 ) 

FAC-2. OOO/C 

IF  (KK.EU.2)  CC  TO  30 

M-KL-1 

DO  20  N-l.KL 
F-DFLOATCN-1 ) 

A-C.COO 
DO  1C  K-2 , H 
E“DFLOAT  I  K-l  » 

A- AaAR I K I -DCCSC F*P I -E/G1 
10  CONTINUE 

BR(N)-FAC*(< IARI 1 1 »AH I KL I • DCOS IF-P1 I 1/2.0  DO) +A) 
20  CONTINUE 

6RI1I-BR( 11/2. COO 
BR (KL 1 -OR  I KL 1/2.000 
RETURN 

33  CONTINUE 

OC  SO  N-l.M 

F-DFLUAT4N  I 

B-O.ODO 

DC  AO  K-2.R 

E-CFLOAT I K  —  1  I 

B-BFAR I K  >  *  OS IN(f*PI*E/G) 

AO  CONTINUE 

BR(N)-FAC*B 
SO  CCM  INUE 
RETURN 
END 


FORI  I 
FORI  2 
FORI  3 
FORI  A 
FORI  S 
FORI  6 
FORI  7 
FORI  8 
FORI  4 
FORI  10 
FORI  11 
FORI  12 
FORI  13 
FORI  1A 
FORI  15 
FORI  16 
FORI  17 
FORI  18 
FORI  19 
FORI  20 
FORI  21 
FORI  22 
FORI  23 
FORI  2A 
FORI  25 
FORI  2b 
FORI  27 
FORI  28 
FORI  29 
FORI  30 
FORI  31 
FORI  32 
FORI  33 
FORI  3A 
FORI  35 
FORI  36 
FORI  37 
FORI  38 
FORI  39 


I 


10 

20 

30 

AO 


SUBRCUT INE  GMTRY  (X.R.Z)  CMTY 

IMPLICIT  MEAL-81  A-H.O-Z)  CMTY 

REAL-8  NUSE  gmty 

COMMON  /etUNT/  ZPt 10U).Xbt  ICC  I  .MBI 1001  ,PEB  1 100 1  .IIEOI  1001  iTEBI  10CI  tG»TY 
1XMBI130I  iNULUMiNmEOCE  .NhPLNR »  M>L-L  l  GMTY 

CCMMCN  /GEC*/  ALPHA , THET AC ,NC S E , RNOSF , HLS T .DUH 1 . XX, NX  GMTY 

CCMMCN  / INTEGK/  IE ■  I  M.KLN0,KEND2 • KLXt K,L,N«LNT 1 . I  NO. KPKT ,LPRT ,KPP ,G»TY 
UPR  GMTY 

DATA  BI.UNT  ,  SHARP /5H8LUNT  *5HSFAPP/  GMTY 

Pl»CARCOS(-l.30C)  GMTY 

IF  INCSE.FC.CLUNTI  GO  TO  10  CMTY 

R-X-OSIN(THETAC)  GMTY 

Z»X*CCOS( TMETAC)  CMTY 

RETURN  CMTY 

IF  I1ND.E0.2)  GO  TO  30  CMTY 

BETA-X/kNCSC  GMTY 

Z«RNCSE-RNCSE-DCOSI0ETA)  GMTY 

RbRNOSE  *0S  IN  I  BETA)  GMTY 

RETURN  GMTY 

XJUNCT-RNQSE  •  I  PI  /2.000— THETAC I  GMTY 

IF  I X.GT . X JUNCT I  GO  TO  AO  GMTY 

GO  TO  20  GMTY 

RJUNCT-RNOSE  *0S I Nl P I / 2 .ODO-THET  AC )  GMTY 

2JUNCT-RNPSE_RNCSE*r>C0Sl  P I  /2  .030—  THETAC )  GMTY 

R-RJUNCT -IX-X JUNCT  > -OS IN l THETAC)  GMTY 

2"2JUNC  T* I X—X JUNCT l-OCCS(THETAC)  GMTY 

RETURN  CMTY 

END  GMTY 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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22 

23 

24 
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SUBROUTINE  1MT 
IMPLICIT  KEAL»R  (A-M.O-/) 
REAL»8  NUSE,LE*LAM,LthTRB 
CCMMCN  / ASSVAR/  TFL.KHL 


IN1T 
IN  IT 
INI  T 
IN  1 T 


CCMHGA  /BLUNT/  7B(  190),XB<  IOC  I  ,RBI  100  I  ,  PE  Bl  1  00  I  ,UE8I  100)  .TE8I  1001,  IN  IT 
IXHBI  l0Cl,NiHUNT,NV.E0GE,NMPLNB,N9LPLl  INIT 

CCMMCN  /CGNVRG/  CCNV,N1T1,MT2,MT3,N!T  INIT 

CCMMCN  /OtPVAR/  FI2,  101.3)  ,FM2,  131,  Jl  ,GI2,  101,31  ,CN(2,101 ,31  ,Tf  2.INIT 
1 101, 3 1,  TN I  2, 1 01,  3).  Z  (  2,  U.1,3 1, /M  2, 1C  1,3)  ,C(101> ,CNC 1311  ,YUCl  I  ,  VCIN  IT 
2LI 101 )  .itCRCLI  101  I  INIT 

CCMMCN  /FRSTIM/  KnC  I NF  ,  P I NF,  IT  S.UF  S,  «  ,  PRL  ,  0,  XHA  INIT 

CCMMCN  /CASI'LP/  LF-LAMUCl  )»  LF l»TKB (1C  1  ) ,  PR  AI.OL  1 10 1 1 ,  PRANDT  1 1 01 1  ,CP  IN  I  T 
If  101  I.GAMHAI  101 1  ,X*UI  IC1  1  .  "hC  I  1C  1  I  .HSU*'  lull  INIT 

COMMCN  /GtCM/  ALPHA,  lHFTAC.NLSr.FN'JSS.HLST.X.XX.  WX  INIT 

COMMON  /INJECT/  INJCT ,N0 I N J, GAS? , COOL , MAST RN  INIT 

COMMON  /1NTEGR/  IE, I M.KEN0.KEN02,  KLX.K ,  L ,  r.BLNTl ,  I  NO.KPRT ,LPRT .KPR,  I N  IT 
ILPP  INIT 

CCMMCN  /PLOTS/  PLOT  .KPLCT  I A 1 .1  PLOT  I A  )  ,  KPR  F  L I  4)  ,  LPKFL  1 4 1 ,  NPTS 1 4 ,2  I  INIT 
COMMON  /SOLPNT/  CM<  101  ),CNM  lull,  VH 1101), GW  (1011, Till  101 1  ,GhNI  1011  •  IN  IT 
IFbNt  101)  .FMIlOll  ,TWI(  101)  ,  ?*<  1211  ,  ZMNI  101  )  ,  X I  A  ,0X0X1  U,  XW.RW  INIT 

COMMON  /SPKBC/  7hALL,Z„ULO,BIOIFW,AMOOTrt,S INLST , ZUPOS i ZMNEG. AMHNEGIN  I T 
l.AKWPOS,  WALLV.ZhZERO.NlTCHC-  INIT 

CCMMCN  /SURF AS/  CwALL,ChlNn,PEx!N».VHALL,rwALL,XTWI500) .TWXf 500)  ,X1N  IT 


1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 
23 


ICIISCOl.CIXISCO) 

,H„ALL .TCCNW ,KCl ■ KTH 

INIT 

24 

CCMMCN  / TRAN5N/ 

KTRANS,KGNSET,X1F,CH12( 1011 , CHI  MAX, XPAR 

INIT 

2S 

CCMMCN  /TRBLNT/ 

ASTAR, AKSTAk.ALAMOA.YSUBL,  EVSCTVI  1 01 ) , PRT , EOTL AH 

.E1NIT 

26 

1PLUS 1101 1 ,ALET .LAMTRB 

INIT 

27 

COMMON  /TMPRTR/ 

T  =  “PI 1  Cl ), TOTE  11311, TP ( 101 ),RTM,T8 

INIT 

2B 

CCMMCN  /wSOLVE/ 

on  * 

INIT 

29 

CCMMCN  /XI CORO/ 

X  1  ,XXI  .0X1  ,X1CLL),DX0KI  .OXDXXl 

INIT 

30 

CCMMCN  /XSULVt/ 

XSTAf 1  Cu  ) ,DXMAX,OX,DXOLO,OX1,N SOLVE 

INIT 

31 

CCMMCN  /ZCOORC/ 

ETAINF,ETAFAC,ETAt 101 I.OETAI 10 l 1 , AOTE ST , KAOET A 

INIT 

32 

DATA  BLUNT  ,  SHARP /5HBL UNT, SHSHA9P/ 

INIT 

33 

IF  (NOSE. to. SFAMP. AND. ALPHA. F0.C.3C0I  GO  TO  10 

INIT 

34 

BEAD  110)  O.R.ThETI, ALPHA, XMA.KLX 

INIT 

3S 

1  MET  AC*T  IIET1*CAFCCSI~1  .CCO )  / 1  SC,  ODO 

INIT 

36 

ALPHA* AL PHA*C ARCC  S (  — 1 .COC 1/1 GC.000 

INIT 

37 

10 

MLST=DAPC(jS(*1  ,0001 

INIT 

3ft 

2NCL  C  =  1 .000 

INIT 

39 

S1NLST=0.000 

INIT 

40 

X*C.C00 

INIT 

41 

0X-DX1 

INIT 

42 

XX»0.000 

INIT 

43 

xi»o.aoo 

INIT 

44 

0X1*0. LOO* 

INIT 

45 

0X0X1*0.000 

INIT 

46 

XXI*O.COO 

INIT 

47 

DXOXX 1*0 .ODO 

INIT 

4B 

Xlh*C.000 

INIT 

49 

Dxcxi«*o.onu 

INIT 

SO 

RM*0 .  COO 

INIT 

SI 

XN*0.0t)0 

INIT 

S2 

XILLC*U.OUO 

. 

INIT 

53 

DXCLD-DX 

INIT 

54 

XIF-0.000 

INIT 

55 

IF  CLAMTRB.E0.2I  XIF-l.ODO 

INIT 

56 

CMNU*CWALL 

INIT 

57 

VNALL*0. ODO 

INIT 

53 

DO  30  J* 1 *4 

INIT 

59 

DO  20  1*1,2 

INIT 

60 

20 

NPTStJ.I )*0 

INIT 

61 

30 

CCNT  1NUE 

INIT 

62 

DO  40  1*1,100 

INIT 

63 

xBin  =  iooo.ono 

INIT 

64 

40 

CCNT INUE 

INIT 

65 

DO  SO  N* 1 , I t 

INIT 

66 

PRANDL I  N 1 *0. 7 1 

INIT 

67 

PRANOT (N 1 *C.9C0 

INIT 

68 

EPLUSIN ) *0.000 

INIT 

69 

LEhL»M(N)*l.GCO 

INIT 

70 

LEUTRB(N)*ALET 

INIT 

71 
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CH1?IN)»0.000 

INST 

72 

GANMAIK)*U 

1NIT 

73 

CPIN>«0/(0-l.0DCil*R 

IN  |  T 

74 

so 

EVSCTY<N)°S.COO 

INIT 

75 

IND-1 

INIT 

76 

IF  CNOSE.FQ. SHARP)  JNO-2 

INIT 

77 

NBLNT1-1 

INIT 

78 

KNPLNB'l 

INIT 

79 

KBL-1 

INIT 

BO 

L*0 

INIT 

81 

NM-0 

INIT 

82 

LPR=IPRT 

INIT 

83 

KEND*KE  N02 

INIT 

84 

IF  (NOSE.EO.PLUNTI  KFN0=1 

INIT 

85 

IH-JE-l 

INIT 

86 

Dtol.OUO 

INIT 

87 

DE1AI 1 )*G. ODO 

INIT 

88 

nmi-o.aro 

INIT 

89 

ETAIIE)*ETA]NF 

INIT 

90 

IF  (ETAFAC.bC. 1.0001  GC  TO  60 

INIT 

91 

DETAt 2) "ETAINFMtTAF AC-1.000 )/IETAFAC**IM-l. 0001 

INIT 

92 

GO  TC  TO 

INIT 

93 

«0 

DETAI21*ETAINF/DFL0A1(1H) 

INIT 

94 

TO 

ETAI2IOET Al 2 ) 

INIT 

95 

00  80  l«3.  1M 

INIT 

96 

DEIAd )*FTAFAC*DETA< I - 1 1 

INIT 

97 

ETAd  )*£!£( l-ll+OETAI 1 1 

INIT 

98 

ao 

continue 

INIT 

99 

DETAIII l=DcTAIIH)*ETAFAC 

INIT 

100 

UIN0PT*0. 07500 

INIT 

101 

IF  (ALPHA. EO.C. 0001  WINCPT-O.OCO 

INIT 

102 

IF  INOSE .F  0. BLUNT  1  WIND»I =C.ODO 

INIT 

103 

c 

INIT 

104 

c 

CALCULATE  INITIAL  PROFILFS 

INIT 

105 

c 

. 

INIT 

1C6 

DC  110  1-1*2 

INIT 

107 

OC  100  N-1,3 

INIT 

108 

00  9C  J»l, IE 

INIT 

109 

FII,J,NI*l .OOO-CEXPI-ETAf J)| 

INIT 

110 

GII,J.NI»WIKOPT*FI l,J,N) 

INIT 

111 

Tl  liJaMsRTh*!  1.000— (TUi*F(I  ,J.NI 

INIT 

112 

2(1,  J.M>l.uC0 

INIT 

113 

2NII , J,N I*  C.COO 

INIT 

114 

90 

CCMINUE 

INIT 

115 

100 

CONTINUE 

INIT 

116 

110 

CONTINUE 

INIT 

117 

00  120  J*1,IE 

INIT 

118 

VIJI*C.0C0 

INIT 

119 

YOLI Jl*0.000 

INIT 

120 

GW(JI*GI 2, J> 1 1 

INIT 

121 

fh(J)*FI l,J,2J 

INIT 

122 

120 

CONTINUE 

INIT 

123 

00  140  1*1,2 

INIT 

124 

DO  133  N*  l  , 3 

INIT 

125 

CALL  01 A IV 3  IF,I,N,ETA,ir,l,fM 

INIT 

126 

CALL  DER1V  3  (G.  I  ,N  ,E  T  A  ,  IF  ,  1,  GN  ) 

INIT 

127 

CALL  0FRIV3  1  T  ,  I ,N, E T A , 1 E . 1 , 1 N 1 

INIT 

123 

130 

CONTINUE 

INIT 

124 

140 

CONTINUE 

INIT 

130 

RETURN 

INIT 

131 

ENC 

INIT 

132 
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C 

c 

c 

10 


20 


Sti8R0UT|NF  INPUT  ,NPT 

IMPLICIT  RfAL'R  (A-H.O-Zt  |NpT 

PEAL *8  NOSF  )NPr 

CCPMCN  /CCJNVPG/  CCNV.MT1,MT2,NIT3,MT  jNpr 

CCPMCN  /EDGE/  ULDG.TErG.VEOG.PFDG.  01FGnX,[>TEGDH,DUEGDX,0UCGDW,0VEGINPT 
1CX.0VFGUW,  OfctOX  ,l)Pfr.nu,[.2PUu2  .JHOtl.C.  A.uUr  nc,  P'JMUEG  INPT 

CCPMCN  /F  I  NO  IF/  Ad01),nuU01l.o(l01I.CCUJll,D[)ll0t),D(lCl)iF<101INPT 
Ilf  CM  INPT 

CCPMCN  /FRSTRP/  RHO I NF ,P I NF , TF S . UF S, « , PRL , C , XMA  INPT 

CCPHCN  /GEOM/  AlPHa.THETAC.NCSfc.kNUSF.HLST.X.XX.HX  INPT 

CCPMCN  /INJECT/  INJCT ,NC |NJ,GAS2,CH( LfMASTMN  INPT 

CCPMCN  / INTfcCk/  IE,IMtAEMJ,KEN02.KLX,K,L,NaLNTl,IND,KPRT .LPRT.KPR,  I  MPT 
ILPR  IKlPT 

CCPMCN  /PIOIS/  PL  JT  ,  KPLCT  I A  I  .1  PLOT  (A  1 1  KPRT  L  I  41  ,  LPRFL  I  41 ,  NPTS  I  A  .2  I  IfJOT 
COPMCN  /STAG/  PSTAG.TSTAG.PNC.OhSTAG.USTAG.IlE  INPT 

CCPMGN  /SURF  AS/  CnALL.CM VC.PEMNO.V..ALL, T «AL L ,XT HI 5C0 I . TUX  I  SCO  I  ,X|NPT 
1CI 1500). Cl XI  SOJI .rtHALl , ICCNW.KCI ,KT*  INPT 

CCPMGN  /TUcRPC/  PROP. VALUE  tupf 

CCP.MON  /TITLE/  LA  9  EL  (  20  I  lNpT 

CCPMCN  /TMPPTP/  TCMPUOM.iaTEIlOll.TPdCn.RTH.TB  INPT 

CCPHON  /TRANSN/  KTRANS.KCNSETiXLF.CMI2{101J.CH[MAXvX3AR  INPT 

CCPMON  /TP  PI  NT/  A  STAR, AKST AR , A L AMDA, VSUHL , E VSC TY t 1C  1 1  , PR T , E DYLAN , E  INPT 
1PIUS 11(1 I.ALCT.LAMTRH  |NpT 

CCPMCN  / UN  I T 1 C /  C X 1NVS .DISK  |NPT 

CCPMCN  /XSGLVE/  XSTAI 1001 .DXMAX.OX.OXOLO, DXI , NSOL VE  INPT 

CCPMCN  n CCOBD/  ETAINF ,ET AFAC. ETAC 101 1 .OtTAI 101 ), ADTE S T , KAOETA  INPT 
OIPENSIUN  STRINGI20I  ,NpT 

DATA  BLUNT .SHARP/5H3LUNT , 5HSFARP/  |Npr 

DATA  R01N/4HRH0I/.P1N/4HPINF/  ,NPT 


TEE  INPUT  QUANT] TIES  ARE  RE AO  IN 


J-69 

READ  S« lbG. END* 20 1  < STM  I NGI I "OS! , IPOS" 1 .201 
NR  IT  E  (J.16C.T  1ST  RING!  1  PCS  T*  1 PCS“ l  .20) 

CC  TO  10 
EMC  FILE  J 
REM  NC  J 

READ  I  J.  160  LAPEL 

READ  (J.130I  IE 

READ  IJ.10CI  INJCT 

READ  C J. 100)  KAOCTA 

READ  IJ.1C0I  KEND2 

READ  IJ.IJOl  KCNSET 

READ  IJ.13CI  KPP1 

READ  (J.ltOI  KTRANS 

READ  I  J.  1001  LAMAR 

READ  IJ.lw.Ct  L PRT 

READ  (J.ICC)  MT1 

READ  IJ.100J  MT2 

READ  IJ.I30J  MT3 

READ  IJ.13CI  NO  I A J 

READ  (J. ISO)  NOSE 

READ  IJ.IOCI  NSCLVfc 

READ  IJ.93I  IXPLOT  I  I  )  ,  1*1 ,4) 

READ  CJ.90)  (KPHFLtll. 1=1,4) 

READ  IJ.93I  (LPL  Old  t, 1  =  1,41 

READ  (J.VO)  ILPFFLdt,  1=1,41 

READ  IJ.I10I  ADTFST 

READ  IJ.llOl  AKSTAA 

READ  I J. I  10)  ALAHOA 

READ  IJ.llOl  ALET 

READ  IJ.110)  ALPHA 

READ  IJ.llOl  AST AA 

REAO  I J, 1  TO )  COCL 

READ  IJ.llOl  CkALL 

READ  I  J.  1201  CM 

REAO  IJ.1ICI  CON V 

READ  (J.139I  DISK 

READ  IJ.llOl  DXINVS 

READ  IJ.llOl  OXPAX 


IN»T 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 

INPT 


1 

2 

3 

4 

5 

6 
7 
S 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
2b 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
39 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 
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30 


40 

50 


«0 


70 


C 

C 


READ 

(J.120) 

0X1 

READ 

( J  t 17  01 

EDYLAW 

READ 

tJ.113) 

ETAFAC 

READ 

IJ.110) 

t  TA INF 

READ 

(J.170) 

GAS2 

READ 

(J.13CI 

BLOT 

READ 

IJ.110) 

PRl 

READ 

I J. 1  SC  I 

PRT 

READ 

IJ.140) 

PftGP 

READ 

IJ.110) 

RTU 

READ 

(J. 1101 

TFS 

READ 

I  J. 1 1 0) 

TSTAG 

READ 

(J.110I 

VALUE 

READ 

IJ.ll Jl 

X3AR 

IF  INDSE.EO.SHAFPI  CO  TC  30 
READ  IJ.110)  BNOSE 
CONTINUE 

IF  INOSE .EO. BLUNT )  CO  TO  40 

IF  (ALPHA.GT . O.CCO)  GO  TO  40 

READ  IJillO)  C 

READ  CJ.UO)  ft 

READ  IJ.110)  THFT1 

READ  IJ.110)  X*<A 

READ  (J.110)  PCUG 

READ  I J. 1101  UEDG 

READ  IJ.110)  TEDG 

READ  (J.110I  RHCEDG 

THfcIAC»THETl*rAPCOSI-l .ODO  1/ 1  80.0DO 

ALPHA* At PhA*CARCOS I- 1 .OOC »/l 60.000 

CONTINUE 

DO  50  1=1. NSOLVE 
READ  ( J.8G  I  XSTAI 1 1 
CCM1NUE 

KTfc=0  ( 

KCI-0 

1*0 

1*1*1 


READ  I J .  1 80 .  END*70 1  XTh (  I  )  ,TfcX  1 1 ) .  XC 1 1 1 1  ,  C IX 1 1 
IF  4XTWM1  .EO. 0.000)  XTwdMXCK!) 

IF  (XCII 1 1 .EC.O.CDOI  XC1I I  )*XTNI 1 1 

IF  IC JXI 1 1 .EC.O.OOO. ANO.KC I.EQ.OI  KCt*l-l 

CO  TC  40 

KTfc=l-l 

IF  (KCI.E0.01  XC 1*1*1 

REWIND  J 

MAS1RN*0 

IF  IKONSET  .EC. 01  KCNSET=NSCLVE 

IF  I l AMTPB . E  C. 2 )  KCNSET=NSfLV6 

IF  (INJCT.EQ.C)  INJCTeNSOLVE 

IF  (NCSE. EC. SHARP. AND. INJCT.EO.l I  INJCT*2 

IF  flNJCT.ro. 1)  HAST  AK’sl 

IF  IHASTRN.EO.il  INJCT=NSOLVE 

IF  I NO INJ. EO.OI  NC I NJ*NSCL VE 


RETURN 

C 

c 

c 

80  FORMAT 

90  FCRHAT 

100  FORMAT 
110  FORMAT 
120  FORMAT 
130  FORMAT 
140  FORMAT 
150  FORMAT 
160  FORMAT 
170  FORMAT 
180  FORMAT 
END 


(2F12.fi) 
(49X.4I3I 
I49X, 13) 

I  49X  . E14.fi) 
I49X, F5.3 ) 
I49X.A2I 
I 49X. A4I 
(49X.A5I 
I20A4) 
I49X.A3I 
I4E12.6) 


INPT 

72 

INPT 

73 

INPT 

74 

INPT 

75 

INPT 

76 

IN»T 

77 

INPT 

78 

INPT 

79 

INPT 

80 

INPT 

81 

INPT 

82 

INPT 

63 

INPT 

84 

INPT 

85 

INPT 

86 

INPT 

87 

INPT 

88 

INPT 

89 

INPT 

90 

INPT 

91 

INPT 

92 

INPT 

93 

INPT 

94 

INPT 

95 

INPT 

96 

INPT 

97 

INPT 

98 

INPT 

99 

INPT 

103 

INPT 

101 

INPT 

102 

INPT 

103 

INPT 

104 

INPT 

105 

INPT 

1C6 

INPT 

107 

INPT 

108 

INPT 

109 

INPT 

110 

INPT 

111 

INPT 

112 

IN»T 

113 

INPT 

114 

INPT 

115 

INPT 

116 

INPT 

117 

INPT 

118 

INPT 

119 

INPT 

120 

INPT 

121 

INPT 

122 

INPT 

123 

INPT  124 
INPT  125 
INPT  126 
INPT  127 
INPT  128 
INPT  129 
INPT  1 30 
INPT  131 
INPT  132 
INPT  133 
INPT  134 
INPT  135 
INPT  136 
INPT  137 
INPT  1 36 
INPT  139 
INPT  140 
INPT  141 
INPT  142 
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SUBROUTINE  INTERS  1 X  .  XI ,  X2  ,X3.F1 ,  F2  ,  F3 1 

FI 

NTR3 

l 

IMPLICIT  krAL*8{  A-H.O-7  ) 

NTR3 

2 

SUBROUTINE  INTERS  INTERPOLATES  FOR  THE 

VALUE 

F 

CORRESPONDING  TO 

NTR3 

NTR) 

3 

4 

POINT  X  USING  3  POINT  LAGRANG1AN  INTERPOLATION. 

NT  R3 

5 

NTR3 

6 

ASSUMES  XI  .LE.  X  .LE.  X3. 

NTR3 

7 

NT  R3 

a 

A1»IX-X2  1  *  1 X-  X  31 

NT  R3 

9 

A2» I X— XI 1  *  C  X- XT ) 

NTR  J 

10 

A3*  1  X— XI 1  * IX-X2I 

NT  R3 

11 

D1-IX1-X2IMXI-X3) 

NT  R3 

12 

D2«l X2— XI J  *  1 X 2-X3I 

NT  R  3 

13 

D3*  1  X3-X 1  )  *<  X  3-X2 1 

NT  R3 

14 

C1*A1/Dl 

NTR  3 

IS 

C2*A2/D2 

NTR3 

16 

C3-A3/DJ 

NT  R3 

17 

F“C1*F1*C2*F2»C3*F3 

NT  R3 

18 

.RETURN 

NT  R3 

19 

END 

NT  RJ 

20 

SUBROUTINE  INTERS  < X, X t • X2 ,X3. X4, X5, F 1 , 

F2.F3 

tF4 

.F5.FI 

NTRS 

1 

IMPLICIT  RE Al *8  IA-H.C-Z) 

NTR5 

2 

NT  R5 

3 

SUBROUTINE  INTERS  INTERPOLATES  FOR  THE 

VALUE 

f 

CORRESPONDING  TO 

NTRS 

4 

POINT  X  USING  5  POINT  L AGRAfIG I AN  INTEkPGLATIUN 

FORMULA. 

NTRS 

S 

NTRS 

6 

ASSUMES  XI  .IE.  X  .LE.  XS. 

NTR5 

7 

NTRS 

S 

AI»( X-X2 1  *  I X-X3 1  * | X— X4  )*  I X-XSI 

NT  R5 

9 

A2*f  X-xn*IX-X3)*IX-X«.)*lx-X51 

NTR5 

13 

A3*IX-X1}»IX-X2I*IX-X41*IX-X5I  ' 

NTRS 

11 

A4MX-X1  l*IX-X2l*<X-X31*<X-X5> 

NT  RS 

12 

A5*CX-XI)*|X-X2I*(X-XJ1*IX-XM 

NTRS 

13 

0l*lXl-X2I*(* I-X3I •( X1-X4 1*1  XI-XSI 

NTRS 

14 

D2*IX2-X1»*IX2-X3J*IX2-X4»*(X2-X5I 

NTRS 

IS 

D3»(X3-X1  >*(X3-X2I*(  X j-X4 ) • 1 X3-X5 1 

NTRS 

16 

D4*IX4-X1 1 *1 X4-X21 *1 X4-X3IMX4-X5I 

NTRS 

17 

0S*IX5-X1 )*(XS-X2)*IX5-X3 1*1 X5-X4I 

NTRS 

18 

C1*A1/01 

NT  RS 

19 

C2-A2/C2 

NTRS 

23 

C3*A3/U3 

NTRS 

21 

C4*A4/D4 

NTRS 

22 

C5*AS/OS 

NT  RS 

23 

F«CI*F1*C2*F2*C3*F 3*C4*F4+CS*F 5 

NT  R5 

24 

RETURN 

NTR5 

2S 

ENC 

NTRS 

26 

SUBROUTINE  LEGEND  1 JCUKVF > XAl . YAL I 

LGNO 

1 

COMMON  /LEGIPL/  LGNUi ISLUL  iIGNIT iKTITLE 

LGNO 

2 

CCRMCN  /PRFILE/  XC.PHI 

LGNO 

3 

DIMENSION  XCI5I.  PH  If  S I 

LGNO 

4 

DIMENSION  RGMCSMILSI 

IGNI) 

S 

Cl  PENS  ION  FLPMS1 

LGNO 

6 

DATA  kCHESP/lHl,lH2.1H3.1H4t 1H5.1H6. 1H7 

1 1  H6» 

1H9 

•2HLAf 2HCB.2HCC •2HCLCN0 

7 

1D>2MCE  i2Hf.F/ 

LGNO 

a 

DATA  LISTl/2HS=/,LIST2/3H?U*/ 

LGNO 

9 

DATA  LIST 3/4HS0L  */ 

LGND 

10 

OX-0.30 

LGNO 

11 

OV— G.30 

LGNO 

12 

IF  I  IUNIT.EO.20l  GO  TO  40 

LGNO 

13 

IF  I IUNI T .E0.14.CR. 1UN IT.EQ.i3l  GO  TO  20 

LGNO 

14 

LEGARG-LISTi 

LGND 

IS 
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IGCHAR>2 

LG  NO 

16 

NDECPL-3 

LGNO 

17 

DC  10  M*  1 ,  JCURVE 

LCNO 

19 

10 

FLPN(HI=XCIM1 

LCNO 

19 

CO  TO  60 

LCNO 

20 

20 

LEGARG-UST2 

LCNO 

21 

LGCHAR-3 

LCNO 

22 

NDECPL*1 

LCNO 

23 

DC. 30  H*  1 ,  JCURVE 

LGN9 

24 

30 

rtPMfi*PHi(n 

LG  NO 

25 

co  in  60 

LCNO 

26 

40 

tEGARC=l  IST3 

LGND 

27 

L  GCHAR  =4 

LGNO 

2S 

NCICPL*0 

LGND 

29 

CC  50  K* 1  * JCURVE 

LGNO 

39 

SO 

TLPNI M l =M 

LGND 

31 

60 

CCMINUE 

LGNO 

32 

DX*0X*0.2S 

LGNO 

33 

CALL  SYMBOL  l XAL'OX, YAL«DV .. 15 ,9Ht*L ECENDi, 0.0,9) 

LGNO 

34 

DV*DY-0.2 

LGND 

35 

OX1*DX«O.OS 

LGNO 

36 

YAL*YAL+DY 

LGND 

37 

DY1— 0.3 

LCNO 

38 

DO  70  HC Al L* 1 1 JCURVE 

LGND 

39 

DX*DX1 

LGNO 

40 

0V*0Y1 

LGND 

41 

ACALL*FLQAT ( MCALL  1 

LCNO 

42 

DY»DY*ACALL 

LCNO 

43 

CALL  PLOT  «XAL*nx,YAL*CY,3) 

LGND 

44 

CALL  SYMBOL  C  XAl  «i)X, V AL*DY  .  .  13  .MCALL  ,0.0 1 1 

LGNO 

45 

DX*DX*0. 25 

LCNO 

46 

DV*DV-0.05 

LGND 

47 

CALL  SYMBOL  ( X  At  OX,  VALOV  ,  .  13  tLEC  ARC. 0.0  .  LGCHAR 1 

LGNO 

48 

CALL  WHERE  (PCX, ROY) 

LGNO 

49 

OX*  *1 5 

LGNO 

50 

CALL  MIMHER  IROX OX, ROY, 0. 13.FLPNI MCALL  1 , 0.0. NDECPL  » 

LGNO 

SI 

70 

CONTINUE 

LGND 

52 

RETURN 

LGNO 

53 

END 

LGND 

54 

SUBROUTINE  MAX  (ARRAY, ItLE.AMAX.KEX.NEXINOl 

MAX 

1 

CCPHON  /EXPUf.T/  IJLQG 

MAX 

2 

DIMENSION  ARRAY! IELEI 

MAX 

3 

KEXIND= 1 

MAX 

4 

TMAX*AP*AY 1 1 1 

MAX 

5 

DO  10  1*1, I  F  LE 

MAX 

6 

1J 

IF  (ARRAY! I l.cT.TMAX)  TMAX*ARR AY  1 1 1 

MAX 

7 

IF  (TMAX.GT.C.OI  CO  TO  20 

MAX 

8 

IF  UMAX.EO.C.O)  CC  TO  110 

MAX 

9 

IF  ITMAX.LT.C.OI  GJ  TO  120 

MAX 

10 

20 

IF  UMAX. CE. 1.01  CD  TO  60 

MAX 

11 

IF  IIJLOG.EU.il  GO  TO  100 

MAX 

12 

KEXINOO 

MAX 

13 

DO  3C  KEX*  l »  1 5 

MAX 

14 

T  MAX*! MAX* 10.  C 

MAX 

15 

IF  UMAX. LT. 1.01  GO  TO  30 

MAX 

16 

NHAX*  T  MAX 

MAX 

17 

AMAX«NKAX» 1.0 

MAX 

18 

CO  TO  40 

MAX 

19 

30 

CONTINUE 

MAX 

20 

40 

DO  50  LEX*1,KEX 

MAX 

21 

50 

AKAX«AHAX/ 10.0 

MAX 

22 

RETURN 

MAX 

23 

C 

MAX 

24 

60 

IF  (TMAX.LT. 10.01  GO  TC  100 

MAX 

25 

IF  (IJLOG.EO.il  GO  TO  ISO 

MAX 

26 

DO  70  KEX*  1,  10 

MAX 

27 
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1KAX«THAX/10.0 

MAX 

26 

IF  (TMAX.GT. 10.01  GO  TO  TO 

MAX 

29 

hPAX'TMAX 

MAX 

30 

AMAX*NKAX»1.0 

MAX 

31 

GO  TO  80 

MAX 

32 

70 

CONTINUE 

MAX 

33 

60 

00  90  LEXMtKEX 

MAX 

34 

AMAX*AHAX* 10. 0 

MAX 

35 

90 

CONTINUE 

MAX 

36 

RETURN 

MAX 

37 

C 

MAX 

38 

100 

ARAX=TRAX 

MAX 

39 

ARAX*NMAX»1.0 

MAX 

40 

RETURN 

MAX 

41 

c 

MAX 

42 

110 

AKAX*THAX 

MAX 

43 

RETURN 

MAX 

44 

c 

MAX 

45 

120 

IF  (TRAX.GT.-l.OI  GO  TC  140 

MAX 

46 

IF  (TMAX.GT.-10.0)  GO  TO  130 

MAX 

47 

GO  TO  ISO 

MAX 

46 

c 

MAX 

49 

130 

NKAX-TRAX 

MAX 

50 

ARAX*NRAX 

M*X 

51 

RETURN 

MAX 

52 

C 

MAX 

53 

190 

AHAX*0.0 

MAX 

54 

RETURN 

MAX 

55 

C 

MAX 

56 

150 

IF  (IJLOG.EO.il  GO  TO  130 

MAX 

57 

CO  160  KEX>I,10 

MAX 

58 

TMAX*  THAX/10.0 

MAX 

59 

IF  ITHAX.LT.-10. 31  GO  TO  160 

MAX 

60 

NR AX*  T RAX 

MAX 

61 

AKAX*NMAX 

MAX 

62 

GO  TO  80 

MAX 

63 

160 

CCNT 1NUE 

MAX 

64 

RE1URN 

MAX 

65 

END 

MAX 

66 

SUBROUTINE  MIN  (  ARRAY,  lELEtAMlKI 

MIN 

1 

CCPMCN  /EXPORT/  IJLUG 

MIN 

2 

DIPENS  ION  AKRAVIIELEI 

MIN 

3 

THIN* ARRAY (11 

MIN 

4 

DO  IG  1 *1 t I ELE 

MIN 

5 

10 

IF  (ARRAY  1 II. IT. THIN |  TMI N*ARR AY( I  1 

MIN 

6 

IT  (TMIN.GE.C.OI  TM|N=0.0 

MIN 

7 

IF  (TRIM. LT. 6.0)  GO  TC  20 

MIN 

8 

GO  TO  70 

MIN 

9 

23 

IF  (THIN. UT. -1.01  GO  TC  30 

MIN 

10 

IF  (TKIN.LT.-10.0)  GO  TO  90 

MIN 

11 

GO  TO  80 

MIN 

12 

30 

IF  (IJLOG.EO.l)  GC  TO  80 

MIN 

13 

DO  40  KEX «  1 .  1 5 

MIN 

14 

TM1N*TMIN* 10.0 

MIN 

15 

IF  (THIN. GT. -1.01  GO  TO  40 

HIN 

16 

NM|N*TMIN 

MIN 

17 

AKIN°NM|N-1.0 

HIN 

16 

GO  TO  50 

MIN 

19 

40 

CONTINUE 

MIN 

20 

50 

DO  60  LEX'l.KEX 

MIN 

21 

60 

AM IN* AN IN/ 10.0 

HIN 

22 

RETURN 

MIN 

23 

C 

HIN 

24 

70 

AKINMMIN 

MIN 

25 

RETURN 

HIN 

26 

C 

KIN 

27 
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so 

NM]N=7KIN 

H1N 

28 

AMIN=NHIN-l.O 

KIN 

29 

RETURN 

KIN 

30 

c 

MIN 

31 

90 

IF  (1JL0C.E0.I1  CC  TO  80 

KIN 

32 

DO  100  KEX=1,15 

KIN 

33 

THIN=IHIN/10.0 

MIN 

H 

IF  (THIN. LE. -10.0)  GO  TO  100 

MIN 

35 

NHIh=TP.IN 

KIN 

36 

APIN*NMIN-1.0 

MIN 

37 

CO  TC  110 

MIN 

38 

100 

CONTINUE 

MIN 

39 

110' 

OC  120  LEX=l,KEX 

MIN 

40 

AM1N=AMIN>10.0 

MIN 

41 

120 

CONTINUE 

HIN 

42 

RETURN 

KIN 

43 

END 

KIN 

44 

SUBROUTINE  N1XTUR  (T , TE,UE , PE, LEWI S.PRNDL . S»HT .CPOCV. C ,CN, XKU, RHO 

a  MXTR 

1 

1RCR0E ,Z,F tCiHSUM) 

MXTK 

2 

IMPLICIT  REAL*8(  A-H.O-Z) 

MXTR 

3 

REAL»8  HI, H2, LEWIS 

KXTR 

4 

CCPMCN  /INJECT/  I N JC  T , NCIN JtCAS2 , COOL  aHASTRN 

MXTR 

5 

CCKHCN  /INTECR/  1 E • IM . KEN0.KEN02, KLX • K.L , NBLNT 1, INO, KPRT , LPRT  , KPR 

*  MXTR 

6 

1LPR 

MXTR 

7 

CCKHCN  /POEREF/  UREF.CREF 

KXTR 

8 

,  COMHCN  /POLYCC/  CPA!RL<61.CPAIRHI6I,ENA|RLI6>,ENAIRH|6),CMUAIR|6| 

.MXTR 

9 

lCHLHr(bl,0IMlU6),CMUAR(6l  ,DIF  AR  (6  ) ,  CPC02L  (6)  ,  CPC02HI6)  ,  CNCC12LU  1 

*MXTR 

10 

2ENCC2H 1 6 ) ,CMUC02(6)«0IFCn2(6) 

MXTR 

11 

CCKMON  /SPhBC/  2 WALL .ZhCLUtftlDTFW, AHOCTW , S INLST , ZWPQS , ZUNEGa AMWNEGHXTR 

12 

lfAHriPCSiHALLV, ZhZcHGtNI TCHG 

KXTR 

13 

CCPMCN  / STAG/  PSIAG.TSTAG.FNC.CRSTAG.HSTAG.HE 

MXTR 

14 

COPMliN  /SURRAS/  Cm  ALL  .CuIND.PFVtINO.VUALL  ,  TaiALLaXTWI  5 30 > , TWXI 500)  , 

XMXTP. 

15 

lCI(5CC)fC 1 X( 5001 ,HWALL,TCCN«,KCI ,KTh 

MXTR 

16 

CCPMCN  /TP PR  TP/  TEMPI  101), TOT E ( 10 11 , TP U 2 1 I.RTW.TB 

MXTR 

17 

COPKCN  /2CC0PD/  E  T  AI  NF  ,  ET  AF  AC  ,  CT  A(  10  1 )  ,  l>c  T  A(  10 1 1 ,  AOT  E  S  t ,  K  AOE  TA 

MXTR 

18 

DIMENSION  TI1C1),  LEWiSdOll.  PRNCLI101I,  SPHTI101),  CPOCV(lOl), 

CMXTR 

19 

ICICI),  CNI101),  X-UI101I,  RMCI101),  HSUM(lOl),  KCROEIlOll,  TTIICIIMXTR 

20 

DIPENSION  FI  101),  CI1C1I,  /I101) 

KXTR 

21 

DATA  HEL , AR , CC2, A l R/3HHEL • 3H ARC, 3HC02, 3HA IR/ 

MXTR 

22 

HEP W=4 .062600 

MXTR 

23 

ARPm»39.9A8U0 

MXTR 

24 

CC2MN=44. 0045500 

KXTR 

25 

AIRHW-2B.  9661.0 

MXTR 

26 

UN  IGAS=49754. C350C 

MXTR 

27 

Hl-AIRMW 

MXTR 

2B 

KTT»0 

MXTR 

29 

C 

MXTR 

30 

C 

CCPPUTE  THE  FLUID  PROPERTIES  OF  AIR 

MXTR 

31 

c 

, 

MXTR 

32 

10 

CONTINUE 

MXTR 

33 

TEMPI  1 l  =  T  MALL 

MXTR 

34 

TEMPI  IE ) =TE 

MXTR 

35 

INDT-0 

KXTR 

36 

kit«rtt*i 

MXTR 

37 

IF  IKTT.CT.6)  GO  TO  130 

MXTR 

38 

DO  100  1*1  ,IE 

MXTR 

39 

IF  (K.EQ.l )  Cl  1 1  =  3. SDO 

MXTR 

40 

IF  (TEMPI  1  1.LT.4C.0D0I  Tf MPI  1  )>90.C00 

MXTR 

41 

IF  1  TEMPI  1  ).GT. 12600. UOO)  TEMP  1 1  1 - 12600 .000 

MXTR 

42 

IF  (TEMPI)). GT.2C3O.PC0I  GO  TC  20 

MXTR 

43 

CALL  POLY  ITEPPI 1 I.S.CPAIkL.CPl) 

KXTR 

44 

CALL  POLY  (TEMPI 1),5*ENAIRL, END 

MXTR 

45 

CO  TO  30 

MXTR 

46 

20 

CALL  PCLY  (TEMPI  I  )  ,  5,  CPA  I  KH,  CP  1) 

MXTR 

47 

CALL  POLY  (TEMPI  l),5«ENAIRH,tM) 

MXTR 

48 

30 

EN1=IN1*TEMP( I) 

MXTR 

49 
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C 

C 

c 


40 

c 

c 

c 


50 

c 

c 

c 


69 

70 


eo 

c 

c 

c 


90 


CALL  POLY  ITEMPI I) , 5 ,CMUA l R.XMU1 I 

XKUl*XMUl*l.D-7 

CV1«CP1-UNU.AS/AIRMW 

TCCM«0.2  50U*<  9.C00=CP1/CV1-5.000I*CV1*XMU1 
IF  f RASTMN.EQ.OI  GO  TO  BO 
IF  tGAS2.NE.HEL)  GO  TO  40 

COMPUTE  THE  FLUID  PROPERTIES  OF  HELIUM 

H2=HFMW 
CP2=3.  1025004 
CN2=CP2*TF»P! I ) 

CALL  POLY  IT! MPI 1 1 , 5 , CMUHE , XMU2) 

CV2*CP2-UN!GAS/FEJ‘W 

TCCN2  =0 .2500* ( 9.C09*CP2/C V2- 5.0C J>  *CV2*XMU2 
CALL  POLY  CTFMPII) .5.D1FHE.B10IF) 
eitlF  =  fUOIF/PE 
GO  TO  90 

IF  IGAS2.NE.ARI  GO  TO  50 

CCPPUTE  THE. FLUID  PROPERTIES  CF  ARGON 

K2*ARMH 

CP2=3. 111S1DC3 
CV2=CP2-UNIGAS/ARM» 

EN2=CP2»TEKP( I ) 

CALL  POLY  ITEMPUI  .  5  .  C  PUAP  ,  XHU2I 
TCCN2=0.2SC0= I9.000*CP2/CV2-5.0G0I*CV2=XMU2 
CALL  PULY  tTEMPI 1 1 , 5. 0 1  FAR ,R IU IF ) 

81 CIF*DI DI F/PE 
GO  TC  90 

IF  IGAS2.NE .CC2)  GO  TC  8C 

COMPUTE  THE  FLUID  PROPERTIES  CF  CARBON  DIOXIDE 
K2-CC2MW 

IF  ITCM»(I l.GT.t 330.0001  WRITE  16.140) 

IF  f  TEMPI  II.GT.t  30  3.C0CI  STOP 
IF  (TEMPI I I.GT.2rCG.uCCI  GO  TO  60 
CALL  PCLY  ITEMPI I) , 5 , C PCC2L.CP2) 

CALL  PGLY  (TEMPI  I  I . 5.ENCC2L. EN2I 
GC  TO  70 

CALL  POLY  (TFMP(l),5,CPCr2H,CF2l 
CALL  PCLY  (  TTKP (  1  )  .  5 » E NCC2H,  E N2) 

EN2=  EN?*T  E MP I  1 1 

CV2=CP2-UMGAS/CG2mw 

CALL  PCLY  ITFMPI I ) , 5. CMUC02 , XMU2 I 

TCDN2=?.25D0*I9.  0D3»CP  2/C V2- 5. UCO  l*CV2*XMU2 

CALL  POLY  (1FMPII I , 5. 0  I FCC2 , B I  DIF  I 

BIC1F-RIDIF/PE 

GO  TC  90 

CCKT  I MJE 

CCPPUTE  THF  MIXTURE  PROPERTIES  FOR  100*  AIR 
BIC1F=0.000 

IF  tl.EQ.l)  TCOMR=TCOK 1 

IF  (I.ECI.1)  KWALL=EN1 

CPCCVIi )=CP1/CV1 

XMUI I )=XHU1 

SPHT 1 1 l=CP l 

HSUMtl I=EN1/PE 

PRKDLII I=CP1»XMU1/TC0N1 

TTI I  I-TEMPI I  l-IEM-ITt  I  I  =  ME-UE*=2*I  F  1 1  I  *•  2*GI  I  >** 2) /2 .000) I /CP  1 

IF  ITT (I I.LT. 90. TOO)  T T ( ! ) =90 . OCO 

IF  (TTII>.CT.126CO.OnO)  TT()  ><=12600.000 

RHCt I l=PE*M!/UNIGAS/TTt 1 1 

Cl II-RHOC I >*XMU1 

lEkISI 1 1=1.000 

GO  TO  100 

CONTINUE 


HXTR 

50 

MXTR 

5L 

KXTR 

52 

KXTR 

53 

HXTR 

54 

HXTR 

55 

HXTR 

56 

HXTR 

5T 

HXTR 

58 

HXTR 

59 

HXTR 

60 

HXTR 

61 

KXTR 

62 

HXTR 

63 

HX  TR 

64 

HXTR 

65 

HXTR 

66 

HXTR 

67 

HXTR 

68 

HXTR 

69 

HXTR 

TO 

HXTR 

71 

HXTR 

72 

HXTR 

73 

HXTR 

74 

KXTR 

75 

HXTR 

76 

HXTR 

77 

KXTR 

T8 

HXTR 

79 

HXTR 

80 

HXTR 

81 

HXTR 

R2 

HXTR 

83 

HXTR 

84 

HXTR 

85 

HXTR 

86 

HXTR 

87 

HXTR 

83 

HXTR 

89 

HXTR 

90 

HXTR 

91 

MXTR 

92 

HXTR 

93 

HXTR 

94 

HXTR 

95 

HXTR 

96 

HXTR 

97 

MXTR 

98 

HXTR 

99 

MXTR 

100 

MXTR 

101 

HXTR 

102 

HXTR 

103 

MXTR 

104 

HXTR 

105 

HXTR 

106 

HXTR 

107 

HXTR 

108 

HXTR 

109 

KXTR 

110 

HXTR 

111 

MXTR 

112 

MXTR 

113 

MX  TR 

114 

HXTR 

115 

HXTR 

116 

KXTR 

117 

HXTR 

IIB 

HXTR 

119 

MXTR 

120 
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C 

c 

c 


COMPUTE  MIXTURE  PROPERTIES  FOR  FOREIGN  GAS  INJECTION 

XMU2«XMU2*1.0-7 

TCCN2»TCON2*l.D-7 

if  n.ro. n  etoiFw=»ioiF 

HSUMII  )  =  (EM-EN?)/HE 

CV=(  l .GOO- 2 1  I  I l*CV2*ZI  1 1 *CV1 

SPOT  II  1  =  1  l.OCO-ZI  I ))*CP2«2 1 1  |*CPl 

ENTLPY=I1. CDC-Z I M I »EN2* 2 I  I J *EN1 

IF  II. CO. II  liWAl  L=cNriPY 

X2  =  (  (1.000-71  !  I  I/H2I/I 21  I  I /)' 1*11.000-2 1 1 1  I/M2I 

xi*mii/NU/mi  i/mi*  i  i.ooo-z  1 1 1  1/M21 

IF  IX1.LT. l.D-AC)  Al=l.D-*0 
IF  (X2.LT.  l.C-*0>  X2= 1 ,C-*0 


MXTR 
MX  TR 
MXTR 
MX  TR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 
MXTR 


G12MU=1 .OOO/DSOBT (8.0001*1 .OOO/DSORTI l .000*M1 /M2 1 *( 1 . 000*0 SORT  I XMUMX  TR 
I1/XMU2)*! “2/Ml J**0. 25001**2  MXT, 

G2 1 MU *  1. OOO/DS OHT (8.0IK  1*1  .000/0 SORT  I  1. 300 *M2/M1 1*< 1 .000*OSORT I XMUMX TR 
12/XMUl)*{Ml/»2)«* J. 2500 1**2  HXTR 

XMUI  1  1  =  XMU2/1 1 .0DJ*G21ML.*Xl/X2l*XMUl/(  l.OOO+G  1  2KU*X2/X  1 1  MXTR 

TCGN*  TC0N2/  ll.C03*G21Mll*Xl/X2)*TCCNl/(  1.000*01 2MU*X2/X  l )  MXTR 

IF  (I.EO.ll  TCUiS2=TC0N  TR 

Til  1 1 “TEMPI  1 |- 1 ENTLPV- IT  I  I  1*FE— UE**2* I  FI  1 1 **2*GI 1 1* *2 1/2.0001 l/SPHMXTR 


100 


110 

120 


110 


C 

1*0 


ITCH 

IF  (lTin.LT.90.0C01  TTI  I  )  *90.000 

IF  ITT! I  I .GT. 1260J.0D9I  T  T  I  I  I  =  12600 .000 

RHOI I 1=PE/LNIGAS/TT I I)»(M1*“2)/I2l 11*1 H2-M1 ) *M1) 

CPGCVI I  1  *  SPHT I  1 1 / CV 

Cl  llcRHOt  I  I  *  XMUI  I  I 

PRNDL I ll*SPHT(  I  I  *  XMUI I l/TCCN 

LEM  SI  1  1-RltOI  I  )*MIOIF*SPHTI  II/TCON 

CCM  IMJE 

TTI1 }*THALL 

TTIIE)=TC 

DO  120  N=l,IE 

IF  (OARSll.CCO— TTINI/TEMPIN) I.GT.l . 0— *  I  INQTM 
TEPPIN1*TT IN) 

TOTCIM*TfcMP(N)/TE 

RCPOEIM'RMCtM/PHOIIEl 

IF  (LPR.E0.-10)  GO  TO  110 

CIM'CINI/CREF 

GC  TO  120 

C(M=C(N)/CI  IE  1 

CCM  IMJE 

IF  I  II.DT  .EO.  1 1  GO  TO  10 
IF  (KTT.EQ.l  1  GC  T'J  1C 
CALL  OIRIV  (C, ETA,  IE.  1. CM 
CALL  OtRIV  (TOTE, ETA, IE, 1, TP) 

RETURN 


FORMAT 

1CARBGN 

END 


I5X, 1C2HTEMPERATURE  MAS  FXCEEOEO  THF  6303  DEG.  MAXIMUM  FOR 
D10XI0E  CURVE  FIT  UAT A-EXECUT I  ON  TERMINATING/) 


MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 

MXTR 


121 

122 

123 

12* 

125 
176 
127' 

126 
129 
133 

131 

132 

133 
13* 

135 

136 

137 
13S 
139 
1*3 
1*1 
1*2 
1*3 
14* 
145 
1*6 
1*7 
1*3 
1*9 

150 

151 

152 

153 
15* 

155 

156 

157 
159 
159 
163 
161 
162 
163 
16* 

165 

166 
167 
163 
169 
173 

171 

172 

173 


SUORGUT 
IMPLICI 
REAL*  6 
CCPMCN 
CCHMCN 
ll.CRI 
COMMON 
COMMON 
CCHMCN 
COMMON 
ILPR 
COMMON 
COMMON 


INE  OUT  1 

T  REAL*8  I  A— H, 0-2  I 
NOSE 

/CONVRG/  CONVfNITl  .NIT2.MT3,  NIT 

/FI  NO  IF/  A I  101 1,931  101I.BI 101), CC I  1011,001 1011,01 1011 ,E 

/FRSTPM/  RHOINF ,PINF,TFS,UFS,R,PRL,G,XMA 
/ CKJM/  AL PHA,  I HC TAC  ,N('SE  iRNOS F  ,NL ST  , X ,  XX,  MX 
/INJECT/  1NJCT , NCI NJ.GAS2, COOL, MAST RN 

/ INTEGR/  IE, IM,KEN0,XEN02,KLX,K,L,NHLNT1 , 1  NO, KPRT , LPRT , 

/REF/  PREF,TREF,AMURLF,REINF 
/STAC/  PS T AC, T STAG, PNC , CK5T AG .MSTAG .HE 


0UT1 
0UT1 
OUT  1 
OUT! 
( 1010UT1 
0UT1 
OUT! 
OUT  l 
OUT  1 
KPR.OUTl 
OUT  1 
OUT! 
OUTl 


1 

2 
3 
* 

5 

6 

7 

8 
9 

10 

11 

12 

13 
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CGMNCN  /SURF AS/  CwALL »CW INO.PEMIND, VWAtL t TUALL.XTWI 300 1 1 TWXl  300)  ,XOUT l 

14 

lCI<3C!0),CIXI5l)OI.H.<ALL.TCUNW,KCI.KTW 

0UT1 

15 

CCRMCN  /ThFRMC/  prop, value 

OUT  1 

16 

CCPHCN  /TNPPTR/  TEMPI  101l,TOTE<lOl),TP(ldll,KTW,.TH 

OUT! 

17 

CCMMUN  /TRBLNT/  ASTAR.AKSTAR.ALAMOA.YSUBL.EVSCTVI 1C1S ,PRT 

■  EOVLAW.EO'J  T  L 

18 

lPtUSI10l),ALET,LAMMB 

CUT  1 

19 

CGNMGN  /XICOPC/  XI.XXl.PXl.XICLD.DXUXt .DXDXXI 

OUT  1 

20 

CGPMCN  /XSCLVE /  XSTA ( 1 3C I .OXMAX , DX .BXCLU , 0X1 ,NSOL VE 

CUT1 

21 

CCNNCN  n CCCRO/  ETAINF.ETAFAC.ETAtlGli.DETAIiOll, ADTE  ST, KAOETA  OUTl 

22 

DIMENSION  ST  K 1 NG ( 2C ) 

OUT  1 

23 

DATA  BLUNT .SHAUP/SHALUNT .SHSHAPP/ 

OUT  1 

24 

ThEW-THCT  AC  *180.  3U0/UARCljS<- 1.0001 

OUT  I 

25 

ATT An* ALPHA* 1  BO. 300/0 AhCCS (-1 .CCO) 

0UT1 

26 

WRITE  13,301 

0UT1 

27 

WRITE  13,00) 

OUT  1 

28 

WRITE  <6,1001 

OUT! 

29 

J«t9 

OUT  l 

30 

10 

RE  AO  U. 240, END-201  <  SIR  IKG( 1 )  ,  1  -1 ,20 1 

OUT  1 

31 

WRITE  16,2501  1  STRING!  II, 1-1, 20) 

OUT  1 

32 

GC  TO  10 

OUT  1 

33 

20 

WRITE  16,90) 

OUT! 

34 

WRITE  (6,110)  PSTAG 

0UT1 

35 

WRITE  16,120)  TSTAG 

0UT1 

36 

WRITE  (6,130  HSTAG 

0UT1 

37 

WRITE  (6,140)  PINF 

Out  i 

3B 

WRITE  16,2601  RHC1NF 

OUTl 

39 

WRITE  <6,1501  TFS 

OUTl 

40 

WRITE  (6,160)  UFS 

CUT) 

41 

WRITE  (6,170)  XMA 

CUT  1 

42 

WRITE  16,1801  G 

OUTl 

43 

WRITE  (6, 19C  1  R 

OUTl 

44 

WRITE  16,200)  XT- 

OUTl 

45 

WRITE  16,2101  ATTAK 

OUTl 

46 

WRITE  16,220)  THET1 

OUTl 

47 

WRIT!  16,70 

OUTl 

48 

IF  (IJGSE.EO.eLUMI  GO  TC  40 

OUTl 

49 

DO  30  1  - 1 , NSCL  VF 

OUTl 

50 

WRITE  (6,80)  I.XSTAll) 

OUTl 

51 

30 

CCM  INUE 

OUTl 

52 

WRIT!  (6,2301 

OUTl 

53 

40 

CONTINUE 

OUTl 

54 

c 

OUTl 

55 

c 

OUTl 

56 

RETURN 

OUTl 

57 

c 

OUTl 

58 

c 

OUTl 

59 

c 

OUTl 

60 

30 

FORMAT  ( 43X,  37mPRCpCR TIES  AT  TEE  WINDWARD  STP6AHL  INEZ  1 

OUTl 

61 

60 

FORMAT  I16X.SHS/REF , 14A, IHS, 13X,bHCrX I NF , 1  OX, SHST INF , 1  OX , 

7H0WI  01  M  )C*UT  1 

62 

l,9X,5HQrt/QwSTA(»,  7X.5H2v.ALL  /) 

OUTl 

63 

70 

rCRMAT  1  26  X,  4  3HPC  IN  T  S  AT  WHICH  A  SOLUTION  IS  TO  BE  OBT  A]  flEOS //2BX  ,GUT  1 

64 

1 1 H 1 ,6X, 7HXSTAI | |/| 

OUTl 

65 

80 

FORMAT  I26X, |3,5X,F9.6I 

OUTl 

66 

90 

FORMAT  l//26X,42HFH£E  STREAM,  STAGNATION,  AND  VEHICLE  OATAS//I  OUTl 

67 

100 

FORMAT  I46X»40II1HKFE"*DIMLNS1CNAL  BOUNDARY  LAVrR  PP0CRA9/ 65  X  ,  3HF0R  /OUT  l 

68 

1S4X.25HLAMINAR  TK  TURGLIL  LNT  FLGW/64X  ,4HW  1 TH/56X,  2GHH|  NARY 

GAS  INJE0UT1 

69 

2CT IGN/60X  «  12H0E  VFLOPE 1)  B  V/52  X,  2SH  M.C.  MIEOEPS 

/SOX .OUTl 

70 

332FAE  POSP  ACE  ENGINEERING  OEP  AH  TME  NT/ 40X,  5 1HV IRGI N I A  PUIYT 

ECHNIC  INCUT! 

71 

AST  11  UTE  AND  STATE  UNI  VERS  1  TV/56X  ,2  1HH LACKS BURG,  VA.  24060///26X,  3  2  GUT  ( 

72 

SHINPUT  DATA  CAPOS  ARE  AS  FCLLCWS://! 

OUTl 

73 

no 

FORMAT  I26X.7HPSTAG  «,E13.6,5H  PSIAI 

OUTl 

74 

120 

FORMAT'  1  26  X,  7HTST  AG  -,E1J.6,6H  CfcG.P  1 

OUTl 

75 

no 

FORMAT  I26X.7HHSIAG  -.E13.6.13H  F  T  •<  2/ SEC*  *2 1 

OUTl 

76 

140 

FORMAT  1 2fc X , 7hP I NF  -,E13.fc,5H  PSIAI 

OUTl 

77 

ISO 

FORMAT  1  2fcX,  7HT I  NF  >,E13.6,6H  CEG.FI 

OUTl 

78 

160 

FORMAT  I26X.7HUINF  -.E13.6.7H  FT/SCCI 

OUTl 

79 

170 

FORMAT  1 2fcX , 7HM| NF  -.E13.6I 

OUTl 

BO 

180 

FORMAT  1 2bX,  7FICP/CV  -  ,  E 1 3.  61 

OUTl 

B1 

190 

FORMAT  (2fcX, 7HR  -,E13.6,19H  FT**2/SEC**2/OEG.R 1 

OUTl 

B2 

200 

FORMAT  (26X,  TIITW/TO  -.F13.6I 

OUTl 

83 

210 

FORMAT  ( 26X,  THAI PHA  -,E13.6,5H  CEG.I 

OUTl 

84 
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220 

FORMAT 

<26X,7HTHETACb,E!3.6«SH  DEG. //I 

OUTI 

85 

230 

FCRMAT 

tlHO) 

0UT1 

86 

240 

FCKMA1 

I2CA4) 

OUTI  . 

87 

250 

FORMAT 

I76X.20A4) 

OUTI 

88 

260 

FCRMAT 

( 26X, 7HRH0I NF* , E13.6.12H  SLUG S/FT** 3) 

OUTI 

89 

END 

OUTI 

90 

10 


SUBROUTINE  OUT 2  0UT2 

IMPLICIT  PUL*8  U-H.C-21  0UT2 

REAL'S  NJSE, LEMLAM.LEWTRQ  0UT2 

CCMMCN  /CONVFG /  CCNV,M11,MT2,N1T3,N1T  0UT2 

CCMMCN  /IHPVAR/  F(2, 101,11. PM  2.101. 31 ,0(2, 1 01 ,3) ,GN< 2 , 101 , 3 1 ,T(2,CUT2 
1101.3)  .TNI  2,  1CI,31  ,2(2,101,3)  ,2N(  2,1 31  ■  31  .Cl  UU.CNI  101 )  .  VI 101  )  .  V0CUT2 
2LIlbl),RCKCI:l  1CII  CUT2 

CCMMON  /E0G2/  PE2 . TE2, LF2. VE2. 0PE2DX . DTE20X, DUE2DX,DVE20X,DPE2DW .00UT2 
-  IUE2DW,DVC2DW,DTL2DW, AMUE2,  K0MU2 , C2 , R HUEZ , R EX2  0UT2 

CCMMCN  /GASPKP/  LEhLAMIlOlltlCWTRBIlQll.PR ANOL 1 10 1 1 . PR ANOT 1101) . CP0UT2 
11101 1. GAMHAI 10D.XHJI 1011 .RHCI  10 U ,HSUH| 101)  CUT2 

CCMMCN  /GEC I'/  ALPhA.ThETAC  ,NCS  F  ,RN OS F, ML ST  .X.XX.WX  0UT2 

COMMON  /INJECT/  1NJCT.N0INJ.GAS2.CCICL  .MASTRN  0UT2 

CCMMCN  /INTfcGR/  lEilM.KENU ,  KEND2, KLX , K. L . NPLNT 1. I ND.KPRT . L PRT . RPR .OUT 2 
1LPK  0UT2 

COMMON  /OUTPUT/  CFwEOG.CFW  INF , CFXEOG.CFX  I NF . CHEOGE  ,CHl  NF . AMACHE. 0EnilT2 
'  IL.QW.QMINF .OkOOWO.S.STEOGE ,5T  I  NF , T AUE T A, T AUX ,UtL SIX, DELPHI .THE TAX, CUT 2 
2TFEPHI  .  0UT2 

CCMMCN  /PICT  S/  PLCT.KPLCl (4) , LPL OT 1  A > , KPRF U A )  ,  LPRFL { A ) , NPTS < A  ,2  )  CUT2 
COMMON  /SCLPNT  /  CM  1 10 1 1  ,*CNM  101), VM(  101 1  ,  GM<  13 1 )  ,  ThI  10 1 1  ,GWN!  101  )  ,CUT2 
1FMN1  101)  .F  hi  IC1  I  .TV.N1  101)  ,  ZWI  LC1)  ,/kNI  1011  .XlM.UXOXl  n.XM.RM  CUT2 

CCMMCN  /SUP FAS/  CM ALL .CwIND, FEW  I NO.VWALL ,TWALL .XTWISOO), TwXI 5001 ,  XCUT2 
1CII5CJ1.CI XI  SCO) .HkALL.ICCNrt.KCI.XTw  0UT2 

COMMON  /TMPPTP/  TEMPI  101  I  ■  TOTE C 1011, TPI 1 J1 I.RTw.TS  CUT2 

CCMMCN  /TFANSN/  KTRANS.Kt’NSET  ,X|F.CH|2I  101  )  .  CH  IMAX.XBAR  0UT2 

CCMMCN  /TR  1*1  NT /  A S TAP , AKST AR , ALAMOA, YSUDL , cVSCTY 1 101 1 , PRT, EOVl  Ah  ,  E0UT2 


IPLUSIIOD.ALET.LAMTRB 

CCMMCN  /XICCKC/  XI, XXI ,DXI .XICLC.OXDXI .OXOXXI 

CCMMGN  /X SOLVE/  XS IA I  1 00)  ,  OXKA X , OX .L'X.HO ■  DXl  .NSOLVF 

CCMMCN  // CCC*C/  ETA!NF,ETAFAC,cTAI  101)  iDETAI  10  1),  AI)TE  ST  ,  KADETA 

DATA  BLUNT  ,SHARP/5Hi)LUNT  .5HSHARP/ 

DATA  AN0/2HNC/ 

CALL  GMThY  1  X,00‘,R.2AX1 

IF  (NGSC.FU.PLUNT)  2l)AEF*2AX/RNCSE 

IF  INOSE.EO. SHARP)  20<*EF>2AX/XSTAINS0LVE) 

IF  INOSE. EQ. BLUNT )  KCREF-R2/PNCSE 
IF  (NOSE. EO. SHARP)  RCMEF-R2/XSTAI  NSC'LVE  I 

CREATE  THE  PLCTTER  OATA  SET 


0UT2 
OUT  2 
0UT2 
0UT2 
0UT2 
0UT2 
OUT  2 
0UT2 
0UT2 
0UT2 
OUT  2 
PUT2 
0UT2 
0UT2 
OUT  2 
0UT2 
0UT2 
0UT2 
OUT  2 
0UT2 


IF  IFLOT.CC.ANO)  GO  TO  80 
DO  30  I ® 1 , A 

IF  I L PLOT  I  I ) . EO.C I  GO  TO  40 
IF  (X.NE.XSTAILPLCTU)))  GO  TO  30 
IF  (X.EQ.O.uCCI  GO  TO  10 
NPTSI I«21=NPTSI 1 1 2 ) ♦  1 
WRITE  <16,3401  X,MX,PE2,AMACHE,CEL,CFXINF,STlNF,QwOOW3,CFWtNF,DELSOUT2 
IT  X  0UT2 

CONTINUE  0UT2 

DO  20  N=1 ,4  0UT2 

IF  IKPLOT(N).rO.O)  GO  TO  20  0UT2 

IF  (K.NE.KPLOT IN) )  CO  TO  20  0UT2 

WRITE  115,350  X , MX, I VCLl J I , F 1 2 , J , 2) ,G< 2, J , 2 1 , TOIE I J 1 , 21 2 , J, 2 1 .EPLOUT 2 


1 

2 

3 

6 

5 

b 

T 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
33 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 


1USIJ) . J»2 t IF) 

0UT2 

54 

20 

CONTINUE 

0UT2 

55 

30 

CONTINUE 

0UT2 

56 

40 

CONTINUE 

OUT  2 

57 

DO  70  1*1,4 

OUT  2 

58 

IF  IKPLOT fll.EQ.Q) 

CC 

TO 

80 

0UT2 

59 

IF  IK.NE.KPLUTIM) 

CO 

TO 

70  • 

0UT2 

60 

229 
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50 


60 

TO 

eo 

c 


IF  IL.NE.l.ANO.L.NE.LPR)  GO  TO  140 


93 


100 


110 


120 

130 

140 

C 

c 

c 

c 

c 

150 

1*0 


170 

160 

190 


IF  IX.EO. 0.000)  GC  TO  SO  0UT2 

NPTSII.1 l»NPTS( 1,11*1  0UT2 

WRIT!  113,140)  X  ,MX,  PE2 ,  AMACHE  , CEL  «CFX  INF,  ST  INF  , OWOQWO .CFWI NF,DE  LS0UT2 
IT*  0UT2 

CONTINUE  0UT2 

00  60  N*1 ,4  0UT2 

IF  ILPLLTIM.EO.O)  GO  TO  60  0UT2 

IF  IX.NE.XSTAILP10T(NI)>  GO  TO  60  0UT2 

WRITE  114,350  X,WX, ( YCL I J I ,F ( 2, J ,2) ,G(2, J,2I , TOTE (J I , 2 ( 2, J, 2) .EPL0UT2 
1USIJ  I ,  J*2 «  IE )  0UT2 

CCMINUE  0UT2 

CCNTINUE  OUT 2 

CONTINUE  0UT2 

0UT2 
OUT  2 
0UT2 

WRITE  16,160)  X,S,2AX,2CREF,R2,R3REF,0X,NIT,WX  0UT2 

WRITE  16,170  XI  ,0X1 ,0X0X1  ,CwALt  0UT2 

WRITE  16,1801  OUT 2 

WRITE  (6,193)  PE2,TE2,IE2,VE2,APACHE,DPE2DX,OTE20X,DUE2DX,DVE20X,PQUT2 

lH0E2,DPE2OW,OTE20M,OUE2DW,CVE2Dk,R(]PU2  0UT2 

WRITE  16,3301  REX2  0UT2 

IF  IL.EO.l. AND. NOSE. EO. SHARP)  GG  TO  90  0UT2 

WRITE  (6,360)  0UT2 

WRITE  (6,200)  0UT2 

WRITE  (6,210  CFXINF.CFXEDC.CFfclNF.C FwEDG.CHEOGE .CHINF ,STEDGE,STI NCIUT2 

1F,0W|NF,CH|MAX  OUT  2 

WRITE  (6,223)  OUT2 

WRITE  (6,2301  TAUX,Of ISTX.THETAX.TAUETA.OLLPHI .THEPHl ,QW,OEL  0UT2 

IF  I X.GE . X  STA I KLNSET 1 ,ANG.K3hSET  »KE. NSOL VE I  WRITE  (6,320)  XIF  0UT2 

WRITE  (6,310)  0UT2 

CONTINUE  0UT2 

IF  (K.NE.l.AND.K.NE.KPR)  GC  TO  130  CUT 2 

IF  IK. Nt.l. OR.KPRT.EO.il  KPK*KPP»KPRT  CUT 2 

WRITE  (6,250)  0UT2 

DO  100  N’>1,IE,2  OUT 2 

WRITE  16,260)  £TA(NI,Y(N).FI2.N,2I«FN(2«N,2I ,G( 2 ,N,2 ) ,GN(2 ,N ,2 ) , Tl OUT 2 
12,N,2I,T'II2,-N,2I,C(M,CNIN),VWIN>  0UT2 

CONTINUE  0UT2 

WRITE  16.3101  OUT2 

WRITE  (6,2801  0UT2 

UC  110  M»1,IF,2  0UT2 

NRITE  (6. 7 TO)  ET  A!  N ) ,  YCU  N I , RGRC  E  I Nl ,  XMUI  N I,  EPLUS (N) ,Cri) 2 1 N I  .LEWLAOU T 2 
1M(N),LEmTRB(N),PR4NCLINI.PRAN0TIN),CPINI  0UT2 

CONTINUE  0UT2 

WRITE  (6.310)  0UT2 

WRITE  lb, 300)  OUT 2 

00  120  Ml. IE, 2  0UT2 

WRITF  (b, 2901  ETA(NI.YCL(NI,Z(2,N,2I , ZNl 2.N, 21 .TEHPIN I , TCT E I N| , TPI CUT2 


1N),GAPMAIM,RHC(N) 

CCNT INUE 

IF  (K.ro.l)  WRITE  (3,1501  S,X,CFXINF,STINF ,0W, OWOQWO ,2 ( 2,1,2) 
CCNT 1NUE 
WRITE  (6,2401 
CONTINUE 


0UT2 
0UT2 
OUT  2 
0IIT2 
0UT2 
0UT2 
0UT2 
0UT2 

RETURN  PUT2 

OUT  2 
OUT  2 
OUT  2 

FORHAT  I10X,6E16.6,2X,F1C.6I  0UT2 

FORMAT  (10X.6HS  « , E 13.6 ,4X, 6HS/RT F » ,E l 3 .6 ,4X ,6HZ  ■ , E13.6.4 X ,0UT2 

I6H2/PEF*. E 13.6/1 3X.6HR  •.£) 3.6, 4X.6HK/R EF*. El 3.6,4 X.6HDX  «, E10UT2 
22.5, 5X.6HNIT  *, IJ.10X,6HPHI  ■  , F6.2 , 5H  OEG. )  0UT2 

FORMAT  I1CX.6HXI  =  ,  E  I  3.6,4X,6H0X1  • , E 1 3 .6,4 X.6HDXDX I » , E l 3.6, 4 X ,DUT2 

16HCWALL>,tlJ.t//l  0UT2 

FORMAT  I  1 C X,2 THD IMENS I CNAL  EDGE  PROPERTIES/)  0UT2 

FORMAT  U0X.6HPE  a, 1 13.6, 5X,  6HTE  - ,C  1  J. 6, 5X.6HUE  - , E 1 3.6, SX.PUT2 
16HVE  «.E  13.6.5X.BHMACHF  -  ,  F  1 3.6/  I0X ,  6H0PEDX- ,  C13.6, 5X  ■  bHDTEDX«,0UT2 
2E  13.6.5X, 6H0UEUX • , E 1 3 .6 , 5X ,6hD VLOX« , E 13.6, 5X ,8HR HOE  • , E 13.6/ 10X , 0UT2 


61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 
SB 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
1C2 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
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114 

115 

116 
117 
110 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 
120 

130 

131 
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200 

210 


22  0 
230 


240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 


36H0PEDW- ,E  13 ,6 ,5X ,6HnTE0h= ,E 13 ,6,  5X, 6HOUEOW= , E 1 3 » 6, 5X ,  6HDVEDW* ,E  130UT2 
4«6t5Xt8HRH0FKU[E iE13«6/J  0UT2 

FCBMAI  dCX.AlHNCiVDIMlNSIONAL  BCUNCARY  LAVERS  PARAMETERS/!  OI1T2 

FORMAT  UCX,7HCrxiNH«,E13.6,5*>7HCFXEOG=,E13.6,5Xt7»ICFWINF-f  EI3.6.0UT2 
i«?i*HC^hlEDG=  tl3.6i5X»7HCHlNF  *#  F  l J  .  6 »  5X , 7HS Tf OU T 2 

»  Iy*,.El3*b,5X,7HST,NF  =»EI3.6/loX,  7HCM  =,E13.6i5X,7HCHIMAX=,E130UT2 

3*6,/'  OUT2 

FCRMAT  ( 10X.37HPI YENS IONAL  SCUNCARV  LAVER  PARAMETERS/!  '  0UT2 

F?™AT  C10X.27HL0N6ITUCINAL  SKIN  FR I  CT  IGN- ,  E 1  3.6 ,4H  PSF , 5X , 1 2H0L L TOUT  2 
*** '  X  J  “*f  13.6*5X,llMlhfTACX!  =  ,F  13.6/L0X,27HTMAf,SV€RSS  SKIN  FP  1C01IT2 
2I  “•  f  13*  L  ,AH  PSF , 5X ,  12HDELTA*!  PHI  I  -  ,  1 1  3, 6,  5X  ,  l  |H1  HcT  A(  »H  d  =  •  E  10U  T2 

33.E/lJX,27HiaALL  HEAT  TRANSFER  RATE  “,E13. 6,411  BTU, 5X ,  12MDE LT A  IT0UT2 

4TI  -,£13.61  0UT, 

FORMAT  ( 1H0.48X, 3< 5H**»»* , 10X1 // I  0UT2 

,«SB^I.,I’',3’'ETA,UX,1HV,1CX,lMF'X0X,2HFN'9X»lHG»10,t*2riGN»93‘»lHH,10UT2 
10X,2HhN,9X,lHC, 10X,2HCN,9X, IHV/ J  OIIT2 

FCRMAT  1 1 X i FI 2.6, 3X, E9. 3, 1 X,  B(  F10.A, IX ) , E 10, 3)  0UT2 

FCRMAT  dX,F12.6,3X,E9.3,lX,F10.5,3l3X,El0.41t4l 1X,F 10 .6) , 3X, E 10.40UT2 

**  OU  T  2 

i  Jr.*  6X,3hETA,10X,  3HV/L  ,7X,  5HR0RPF  ,  9X  ,  3HXMU  ,  IOX  ,  2HE  *  ,  1 1  X,  3HCH  I  .OUT  2 

IBX,3HLEl,BX,3HLET,8X,3HPRL,8X,3HPRT,9X,5HSP  HT/1  0UT2 

FORMAT  dX  ,  F  12.6 , 3X,  £9.3, 2 1 1 X,  F 10. 6 1 ,3 1 2X, E12. 6) ,  IX, F 1 0.6, 3X,E 12.60UT2 

**  0UT2 

FCRMAT  I faX , 3 F E TA , IOX, 3HV/L ,9X,IHZ,9X, 2H2N, IOX. 4HT EMP , 1 0X.4HT/TE, 110UT2 
1X,2HTN|10X,5HCP/CV,9X,  3HKHC/  J  nnr> 

FCRMAT  C1M01  oJJII 

FCRMAT  1 IM0,9X,34HTRANSITICN  I NTERHI TTENCV  FACTOR  -  .E12.6!  0UT2 

FORMAT  1 1C X, 7 8HL PC AL  EDGE  REYNCLDS  NUMBER  =,£12.6/1  0UT2 

FCRMAT  (10E12.6) 

.FORMAT  (2I25CE12.6I, 10 ?E 12.61  0UT2 

FCRMAT  I1H  1 

■  1 0UT2 
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10 


SUEPOuTINE  PhlMCM  Bum 

IMPLICIT  KEAL-61  A-H.C-Z  I  IZ.Z 

REAL*8  NOSE  pJJJU 

f*^,*'^*,3*»^Fil2,lCl,3!,6I2,l&l,3liGUI2,l01,31,TI2,PHlM 
i! ,  i  f  *  ,il2»lcl»3>»,|m,,Ol,3>  ,C(  10II.CNI  lOII.VIlOll  •  VCPnIM 

2LI 101 1  ««<LhCb(  101  )  PHlM 

CC^MCN  /IFCOFF/  RliR2(R3f01iG2tM»F?tDE»ALtEPSiCH||klN0PTfUl  PHIM 

CC.HCN  /  INTECR/  1  c  «  I  H*  Kfcf.D  ,KE%02,  KLX  «K«L  «  NOLNT  1 1 I NDf KPRT »L PR T« KPR »PH |M 
1LPR  PH  I M 

COMMON  /PDECCF/  AO 1101!, A1(I01I,A2I101|,A3(1011,A4 (1011, A5I10II  PHIM 

CCMMLN  /SOLPI.T/  CJdOl  I.LNRl 1C  1 1  .  V. dOl I  , GNl  l J 1 1  ,  THdO 1 1 .GWNdOl 1 , PH  I  * 
IFhM  loll,  Ft,  I  I31I.TWM  1C!  >.  lull  31 1 ,  7MH  IJl  )  ,XIW  .DXOXIH,  XW.PU  PHlM 

CCMMOM  /TRANSN/  K  TRANS  .KC-NSET  ,  X  I  F  ,  Cli  12  ( 101  I  ,  CHIMAX  ,Xt>  A4  PHIM 

Muw  *51A',,4KSTfl',,4L*'<OA*VSIJO‘-.EVSCTVIlCll,P^T,EDVLAh,EPMH 


lPlUSIlOll, ALET.LAVTRB 
CCMMCN  /XICORO/  XI, XXI ,CX I .XICLD.DXE XI , OXDXXI 

tTA,l',F»  tTAFAC.  ETAI  1C  1 1  .OETAI  10 1 1 ,  AOTEST  ,  KADE  T  A 
DIMENSION  RCMU1I  13d  ,  RCMUINdCII 
.  DATA  SHARP, BLUNT/5MSHARP, 5HELUNT/ 

SUBROUTINE  PHIMOM  SETS  UP  THE  COEFFICIENTS  OF  THE  PARTIAL 
DIFFERENTIAL  PHI  MOMENTUM  EOUATITN 

00  10  J-1.IE  - 

R0MU1 1 JI-CHI J I  *1 1  »000*X IF-EPLUS I J I  I 
CONTINUE 

,  CALL  01R1V  ( RCMU1 ,ETA, IE , 1 , RCMU1NI 
DO  20  J>1, IE 
ACIJ!=R0MUM Jl-UI 
AI(JI-ROHUlN(JI*Ut-VWI  Ji 
A2IJI— »wl Jl*ini*EPS)-nF*GI*CM(Jl 
IF  (K.CU.ll  A2I  J  I— FW(  JI  *1  HI  *  EPS  I— PI  *GMI  J  i 
A3I Jl  — 1 1 . ODC/RUSQE (JI l*(-P2-PE*AL*G2-EP$*ALI 
IF  IN.EU. 1 1  A3( J | =-UE*CHI * l.ODO/ROROfcl JI 


PIIIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PHIM 

PIIIM 

PHIM 

PHIM 

PHIM 
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A4IJI— 2.ono*xiw*Fwui 

PHIH 

35 

A5IJI— l>E*CW<  Jl 

PHIH 

36 

IF  IK.C0.1)  A5I JI-O.OOO 

PHIH 

37 

20 

CONTINUE 

PHIH 

34 

RETURN 

PHIH 

39 

CM) 

PHIH 

40 

SUBROUTINE  PLOTFR 

PL  TR 

l 

REAL* it  NCSE, SHARP, BLUNT, XST A, OXKAX, OX, DXOLD, 0X1, DUM1,  ANGIE, THE TAC, PLTR 

2 

CCKMCN  /AXINFO/  IXAXI S, IVAXI S 

PL  TR 

3 

CCPHCN  /CtCH/  ANCLE, THE T AC ,NC S E .fiNGSE . WLST , OUM 2 , OUM J , MX 

PL  TR 

4 

CCPPON  /  IM  ECR/  IE, IH , KbNO ,KEND2, KLX , KDUH ,LDUM ,NBLNT  l ,  1  NO,  KPRT' 

.LPRPLTR 

5 

IT ,KPR,LPR 

PLTR 

6 

CCPHCN  /LEGLHL/  LGND,  tSLPL  ,IUN  IT.KTITLE 

PLTR 

7 

COPMCN  /PLOTS/  LUH.KPL01I41 , L  PLOT  14 1 , KPO INT 14 1 ,LPO 1 NT « 4 1 ,NPTSI 4 , 2PL TR 

8 

11 

PLTR 

9 

CCPHCN  /PR FI l E/  XC.PH! 

PLTR 

10 

CCPMGN  /TITLE/  LABEL  1 20 1 

PLTR 

11 

CCPHCN  /XSOLVE/  XSTAI 1 J0> , OXPA X -3X.UX0L0, 0X1 ,N SOL VE 

PLTR 

12 

01  PENSION  XISOO),  CP00ULI5C3I,  CELI503I,  PE2I5U0I,  APACHF ( 500) 

,  STPLTR 

13 

1 INF( 500) ,  CF  X 1 NF ( 503 1 «  CFh  INFJ 5001 ,  DELSTR15001.  0UPPHM51 

PLTR 

14 

DIMENSIUN  XXI5C0I 

PLTR 

15 

01  PE  NS  ION  XCISI,  PHI ( 5 1 ,  FI5CCI,  GIS30I,  TC5001,  2I5C0I 

PLTR 

16 

DIMENSION  OPMISOO) 

PLTR 

17 

DIPFNSIUN  EPLUSI5J0I 

PLTR 

18 

DIPENSION  VI 5001  ,  VVISOOI 

PLTR 

19 

DIPENSION  IP  T  Si  4 1 ,  IPT0UKI4I 

PLTR 

20 

DIPENSION  CP AP Pi 4 1 

PLTR 

21 

DATA  SHARP ,BLUNT/5H SHARP, 5HRLUNT/ 

PLTR 

22 

DATA  ISTRK1/3HS/L/.JSTRM1/3/ .KSTRHi/3/. I STRH2/2H7U/ , JSTRP2/2/, 

KSTRPLTA 

23 

1M2/I/ 

PLTR 

24 

DATA  I STRH3/4HS/RN/ , JSTRP3/4/ , KSTRP3/4/ 

PLTR 

25 

ISLHL-0 

PLTR 

26 

KllTLE-1 

PLTR 

27 

LGND-1 

PLTR 

28 

1-0 

PLTR 

29 

icice-o 

PLTR 

30 

NCALL-0 

PLTR 

31 

IE-IE-1 

PLTR 

32 

NCLRVE-56 

PLTR 

33 

IUMTM3 

PLTR 

34 

1 VAXI S- 1 

PLTR 

35 

IF  INOSE.lO.BLUNTI  CO  TO  10 

PLTR 

36 

1 L IS  1* 1 STRP1 

PLTR 

37 

JL  1ST  - JSTRP1 

PLTR 

38 

KLIST-KSTRP1 

PLTR 

39 

IXAXIS-I 

PLTR 

40 

CO  TC  23 

PLTR 

41 

10 

ILIST-ISTRP3 

PLTR 

42 

JL 1ST  * JSTP  H3 

PLTR 

43 

XL  1 ST*KST  RP3 

PLTR 

44 

I XAX I S-2 

PLTR 

45 

20 

DO  30  J-l  ,4 

PLTR 

46 

33 

IPTSI JI-NPTSIJ.I 1 

PLTR 

47 

40 

CONTINUE 

PLTR 

48 

C 

WRITF  (6,9201  IUNIT 

PLTR 

49 

50 

CONTINUE 

PLTR 

50 

1-1*1 

PLTR 

51 

READ  (IUNIT, 1120, END^AC)  X 1 1 » , OPH I ( 11 , PF 2 (1 1 , AHACHE 1 1 1 .DEL  1 1  1 , 

CFXIPLTR 

52 

INF  11 1 , ST  INF <1 1 .QWCO-Oi 1 1 .CTWlNFi 1 1 .PELSTPi 1 1 

PLTR 

53 

C 

WRITE  <6,9401  X< I1.0PH1 1 1 1 ,P£2 ( 1 1 , AH ACHE < 1 1 ,OEL 1 1 ) ■ CF X  INF < 1 1 , ST  I NFPL TK 

54 

c 

1111 

PLTR 

55 

c 

WRITE  (6,950)  QWOCxOl  1  1  ,CF  h!  NF  (  1 1 ,  DCLSTR  (  l  1 

PLTR 

56 

GO  TO  50 

PLTR 

57 

60 

CONTINUE 

PLTR 

58 

LIHIT-I-1 

PLTR 

59 

DO  70  J-1,4 

PLTR 

60 
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IF  »  IPTSI JI.EQ.O)  00  TC  80 

PITH 

61 

70  . 

CCNT  I IIUE 

PL  TR 

62 

• 

.  JCLRVE-J 

PLTR 

63 

CO  TC ,90 

PLTR 

64 

ao  , 

t  JCURVE-J-1 

PLTR 

65 

-  IF  IJCUKVE.EC.OI  00  TO  810 

PLTR 

66 

90 

LOC«0 

PLTR 

6T 

IF  1 IUNIT  .E0.16)  GO  TC  140 

PLTR 

68 

IF  (NOSE. EO.PLUNT. AND. KENU2.E0.il  CO  TO  110 

PLTR 

69 

IF  (NOSE. EC. SHARP)  GC  TO  110 

PL  IR 

70 

too 

IF  (NC)SE.FC.PLUNT.AN0.X(L0C»1>  .OQ.XILOC+2)  >  GO  TO  110 

PLTR 

71 

IOOLOCO 

PLTR 

72 

XXUt.CI-XUCCI/PNOSE 

PLTR 

73 

CG  TO  IOC 

PL  TR 

74 

110 

loco-acc 

PLTR 

75 

00  130  I “ 1  i JCURVE 

PLTR 

76 

l-l+LOCO 

PLTR 

77 

DO  120  K=L, LIMIT  i  JCURVE 

PLTR 

78 

LOC-LOCM 

PL  TR 

79 

IF  (NCSE.EO. SHARP)  XX 1 LCC 1 -X 1 K I /XSTAI NSOLVEI 

PLTR 

BO 

■  IF  IKOSt.EQ.ELUNTI  XX  1  LOG) -XIKI/RNOSE 

PL  TR 

81 

120 

CCNTINUE 

PLTR 

82 

130  . 

CCNTINUE 

PLTR 

S3 

■  CO  TC  160 

PLTR 

84 

140 

00  150  1 «i  ,L 1KIT 

PL  TR 

85 

150  . 

XX(1  l  =  rjPHI(l  ) 

PLTR 

86 

160 

CONTINUE 

PL  TR 

87 

IF  (IUNIT. EO. 16)  GO  TC  160 

PLTR 

88 

DO  170  1=1 (JCURVE 

PLTR 

89 

170  •' 

PHHH-OPHlf  MLCC9I 

PL  TR 

90 

CC.  TC  200 

PL  TR 

91 

160 

-  J-0 

PLTR 

92 

DC  190  1  =  1  > JCURVE 

PLTR 

93 

' J» J* I PTS 1 1 ) 

PLTR 

94 

190 

XCII l=X(J> 

PLTR 

95 

200  . 

•.  CONTINUE 

PL  TR 

96 

.  LCC-0 

PLTR 

97 

; 

.  00  210  I>1, LIMIT 

PLTR 

98 

X(I)«=XX<  1  1 

PLTR 

99 

IF  1 IUNIT. EO. 16)  VIII -PE2I 1 ) 

PLTR 

100 

210 

CCMINUE 

PL  TR 

101 

IF.  (IUNIT. EO. 161  GC  TO  260 

PL  TR 

102 

IF  (LOCH. EU.C)  GO  TO  230 

PL  TR 

103 

.  00  220  I  =  1,10C8 

PL  TR 

104 

LQC-LQC*1 

PLTR 

105 

220 

.  V ( LCC )  =  PE2 (II 

PLTR 

106 

230 

-CCNTIMIE 

PLTR 

107 

.  DO  250  I»l, JCURVE 

PLTR 

108 

l-l«LCCB 

PLTR 

109 

DO  24  J  K=L, LIMIT. JCURVE 

PLTR 

110 

LCC-LGCM 

PLTR 

111 

t 

..  VIL0CI  =  Pr2(K) 

PLTR 

112 

240  ■ 

.  CCNTIMIE 

PLTR 

113 

250 

CCNTINUE 

PLTR 

114 

260 

NCALL-NCAll*l 

PLTR 

115 

CALL  AEROPT  1 X ,  V  ,L  IM|  T,  IPT  S.  IL  1ST  .  JL I  ST.KL  1ST,  15HPCE  (C*XfPSF93l, 

1PLTR 

116 

15. 8.NCALL  «  NCURVE i JCURVE ) 

PL  TR 

117 

LOC-O 

PLTR 

118 

.  00  270  I » 1  •  L I MIT 

PL  TR 

119 

XI1MXXMI 

PLTR 

120 

IF.  1  IUNIT. EQ. 161  V(I>«AMACFEIII 

PLTR 

121 

270  • 

CCNTINUE 

PLTR 

122 

IF  1  IUNIT. EO. 161  CO  TO  320 

PLTR 

123 

-  IF  (LOCB.FQ.C)  GO  TO  290 

PLTR 

124 

DO  280  l-l.ICCR 

PLTR 

125 

LOC-LCJCM 

PL  TR 

126 

280 

VILOC l-AMACHEI 1 1 

PLTR 

127 

290 

.  CCNTINUE 

PLTR 

128 

00  310  1-1, JCURVE 

PL  TR 

129 

.  L"l«LOC» 

PL  TR 

130 

DO  300  K-l, LIMIT, JCURVE 

PLTR 

131 
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300 

310 

320 


330 


340 

330 


360 

370 

300 


390 


430 

410 


420 

430 

440 


430 


460 

470 


400 

490 

500 


LCC-L0C«1 
Y (LOC l-AMACHFIKI 
CONTINUE 
CONTINUE 
NCALL-NCALl*! 


PLTR  132 
PLTR  133 
PLTR  134 
PITH  135 
PLTR  136 


CALL  AEHDPT  I X  ,Y ,  L IM I T,  IPTS,  1L  1ST  ,  JLI  ST.  Kl  1ST  ,  3HMCE ,  3.  2  ,  NCALL.NCUPPL  TR  137 


lVFaJCUFVFI 
LCC-0 

DO  330  1-1, LIMIT 
XIII-XXll  I 

IF  ([UNIT. EO. 16)  Y  (  I )  -OfcL  (I  I 
CCM  INUE 

IF  (IUMT.E0.16l  GO  TO  330 

IF  (LOCb.EO.Ci  GO  TO  350 

00  340  1-laLCCft 

LOC-LCC+1 

Y I LOC I -DEL  1 1  I 

CONTINUE 

OG  370  1-1  ■  JCURVE 
L-HLOCB 

DO  363  K—L, LIMIT, JCURVE 
LOC- LOC *1 
Y( LOC I -DEL (K I 
CCNT INUE 
CONTINUE 
NCALL-NCALL+l 


PL  TR  138 
PLTR  139 
PLTR  140 
PLTR  141 
PLTR  142 
PLTR  143 
PLTR  144 
PL  1 R  145 
PLTR  146 
PLTR  147 
PLTR  148 
PLTR  149 
PLTR  ISO 
PLTR  151 
'  PLTR  152 
PLTR  153 
PLTR  154 
PLTR  155 
PLTR  156 
PLTR  157 


CALL  AEROPT  IX ,V ,L I  Ml T , 1P1 S, IL I  ST , JLI ST.KL 1ST , 14H7C0  t  C« TAFT  331 , 14PL  TR  15B 

1,7,NCALL,N  CURVE,  JCURVE  I  pLTK  *59 

tcc-c  piTR  160 

IYAXIS-2  PLTR  161 

00  390  1-1, LIMIT  Pl-JR  J62 

Xlll-XXdl  PLTR  163 

IF  ( IUNIT.E0.16I  Y(II-ABS(CFX1NF(III  PLTR  164 


CCNT INUE 

IF  (IUMT.E0.16I  GO  TO  440 
IF  (LOCH. CO. Cl  GO  TO  410 
CO  400  I-l.LUCB 
ICC-UCM 

YILGC1-ABSICFXINFIIII 
CCNT INUt 

DO  430  1-1  .JCURVE 
l«l*luCB 

DC  420  K-L, LIMIT, JCURVE 
LCC-LOC-I 

YIL0CI-AHS1CFXINMKH 
CCNT INUE 
CCNT INUE 
NCALL-NCALL*! 


PLTR  165 
PLTR  166 
PLTR  167 
PLTR  168 
PLTR  169 
PLTR  173 
PLTR  171 
PLTR  172 
PLTR  173 
PLTR  174 
PLTR  175 
PLTR  176 
PLTR  ITT 
PLTR  176 
PLTR  179 


CALL  ALROPT  (X, Y, LIMIT, IPTS. Ill  ST, JL 1ST, NL 1ST, 13HC  A*t  AFX3  INF3,13,PLTR  1F0 

I7,NCALL,  NCUH VE ,  JCURVE  I  pl- TR  181 

LOC-0  PLTR  182 

DO  450  1-1.LIP1T  It™  >83 

xm-xx(  it  PLTR  184 

IF  I IUMT.EO. 161  V  1 1 l-ABSI ST1NFI 1 1 1  PLTR  185 

CONTINUE  PLJR  J88 

IF  (IUNlT.ro. 161  GO  TO  5C0  pHR  187 

IF  (L3C8.F0.G)  (.0  TO  470  PL™  158 

OC  460  l-l.LUCn  PlJR  J" 

LOC- LOC* 1  plTR  190 

YILOC  »  =  ABS(ST1NF(III  PJ- »R  J** 

CCNTINUF  pL‘R 

DO  490  1=1, JCURVE  .  PlTR  1,3 

L-I+IOCB  PLTR  194 

DO  480  K-L, LIMIT, JCURVE  PLTR  195 


PLTR  196 
PLTR  19T 
PLTR  198 
PLTR  199 
PLTR  200 

CALL  AtROPT  I X , V , L IM1 T , I PTS. IL 1ST , JL I  ST ,KL 1ST , 10HSMGT  I  NFS, 10,6 ,NPl T*  201 
ICALLiNCUKVF, JCURVE I  PLTR  202 


LOC-LOC+1 

Y(LOCI=ABS(ST!NF(KI) 
CCNT INUL 
CONTINUE 
NCALL-NCALL* 1 
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510, 


520 

*30, 


540 

550 

560 


570 


580 

590 

6l>0 

610 

620 


630 

640 

650 

660 


670 

680 


ICC-O 

00  510  1-1  .LIMIT 
XI I1«XX( !  ) 

IF  I  IUMtT.E0.16l  V 1 1 1  =  A  BS I OWCOhO (II) 
CONTINUE 

IF  (1UNIT.E0.16)  ca  TC  560 
IF  (LOCB.EQ.O)  GO  TO  530 
DO  520  1=1 , LOCH 
ICC-LGC  +  l 

V(LCCI=A3SI OVCQkO (III 
CCM  INUE 

DC  550  I  =  1 > JCURVE 
. L=1«L0CB 

DC  640  K=L,LIMIT, JCURVE 
LOC=  LOC* 1 

V(LCCl=AOS<QkOCk'0(K)| 

CCM  INUE 
CCM  INUE 
NCALL=NCALL*1 

CAU  AEROPT  <X, Y, LIMIT, 1PTS, KIST.JL1 
l.lO.NCALL.NCURVE .JCURVEI 
10C=0 
JCUM-0 

IF  I IUNIT.E0.13I  GO  TO  590 
PP«0 

DC  570  1=1, LIMIT 

IF  ICFhINFI | I.EO.J.O)  GO  TO  570 

KH=MH* 1 

X(FM)»XXI 1  | 

V(MM)=ABS(CrkINF II )| 

CCM  INUE 
L IMDUM-MM 
JCCUM- JCUR  VE 
..  11  =  1 

.  DC. 580  1-1  ,  JCURVE 
IF  I IPTSI I I.EC.KEND2)  LL=2 
I PTDUHI II-1PT&I1 l-LL 
LL-1 

CCM  INUE 
. GC  TC  720 
DO  600  1  =  1, LIMIT 
;  XI II-XXI I  I 
CCM  iNur 

IF  I LOCB.EO.G)  GO  TO  620 
DC  610  I ■ 1 , LCCB 
ICC-LUC  +  l 

VlLJCl-AdSICFHINFI  1  I  I 
CONTINUE 

DC  640  1*1  , JCURVF 
L-MLClCB 

DC  630  K=L, LIMIT, JCURVE 
LOC*LOC*  l 

Y I  ICO*  APS  ICFhINFI K)  I 

CONTINUE 

CONTINUE 

DC  650  Ml, JCURVF 
-  CUMPHI IMI-PHI I  MI 

IF  IIUN1T.EU.13.AN0.PHII11.E0.0.0)  GO 
CO  TC  700 

IF  IJCURVF.CC.il  GO  TO  74C 
MO 

:  ICCK* IPTSI 1)41 
.  DO  670  1= I DUM, LIMIT 
MN+1 

.  XINI-XI 1 1 
V1M-VI 1 1 
CONTINUE 
LIMDUM-N 
.  JCDUM* JCURVE* 1 
.  DO  680  M*2, JCURVE 
'  IPTDUMIM-ll-IPTSINl 


PLTR  203 
PL  TR  204 
PLTR  205 
PLTR  206 
PLTR  207 
PLTR  2C8 
PLTR  209 
PLTR  213 
PLTR  211 
PLTR  212 
PLTR  213 
PLTR  214 
PLTR  215 
PLTR  216 
PLTR  217 
.PLTR  213 
PLTR  219 
PLTR  223 
PLTR  221 

, KL 1ST, 14H01W/Q W  STAGS, 14PLTR  222 

PLTR  223 
PLTR  224 
PLTR  225 
PLTR  226 
PLTR  227 
PLTR  223 
PLTR  229 
PLTR  230 
PLTR  231 
PLTR  232 
PLTR  233 
PLTR  234 
PLTR  235 
PLTR  236 
PLTR  237 
PLTR  238 
PLTR  239 
PLTR  240 
PLTR  241 
PLTR  242 
PLTR  243 
PLTR  244 
PLTR  245 
PLTR  246 
PLTR  247 
PLTR  243 
PLTR  249 
PLTR  250 
PLTR  251 
PLTR  252 
PLTR  253 
PLTR  2  54 
PLTR  255 
PLTR  256 
PLTR  257 
PLTR  250 
PLTR  259 

J  *60  PLTR  260 

PLTR  261 
PLTR  262 
PLTR  263 
PLTR  264 
PLTR  265 
PLTR  266 
PLTR  267 
PLTR  268 
PLTR  269 
PLTR  270 
PLTR  271 
PLTR  272 
PLTR  273 
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ODUM* 1 

FLIR  274 

DC  690  K=1,JCCUH 

PL  TP.  2  75 

690 

PHI(F)«UUKPHIIM*1I 

PIT*  276 

GO  TC  720 

PLTR  277 

700 

L  I PDUM“L  1  H  I T 

PL  TK  2  7S 

JCCUM.JCURVE 

PL  TK  279 

00  710  M=l,JCURVE 

PLTR  289 

no 

IPTnb“(MI= IPTSCKI 

PLTK  281 

720 

NC AL  L  =  NCAL  L  ♦  !• 

PLTR  282 

CALL  AfRCPI  <  X , Y  aL  I  MOUP«  IPTDUMtlLlST.JLISTtKL  1ST  •  12HC MEF7U  INF3.1PLTK  283 

12 • 7,  IX ALL ■ NCUKVE  a  JC9UP 1 

PLTK  284 

IF  fJCUf.fC.G)  CO  TO  740 

PLTK  235 

DO  730  P  =  1  ,  JCURVF 

PLTK  236 

730 

PH  1 1  K  1  =  UUP PH  M  HI 

PLTR  287 

740 

CCNT INUC 

PLTK  288 

L0C*0 

.PLTK  299 

DO  750  1*1  ,L  IF  IT 

PLTK  290 

X  f  1 1  *  XX ( I  I 

PLTK  291 

IF  (1UMT.E0.16I  Y(I)=ABS(DELSTRII) J 

PLTR  292 

750 

CONTINUE 

PLTR  293 

IF  IIUNIT.FO.lbl  GO  TO  800 

PLTR  294 

IF  (LCCB.(O.C)  GO  TO  770 

PLTR  295 

DO  760  l-l.LOCB 

PLTR  296 

LOC-LCC+1 

PLTK  297 

760 

Y(LGCI=ABS(DELSTR(III 

PLTK  298 

770 

CONTINUE 

PLTK  299 

DO  780  1  •  1  ■  JCURVE 

PLTR  399 

L* l+LCCB 

PLTR  301 

DO  7 BO  K«L. LIMIT. JCURVE 

PLTR  302 

LOC»LOC*1 

PLTK  303 

V(LOCI=ABS(OELSTR(KII 

PLTR  304 

780 

CONTINUE 

PLTR  305 

790 

CCNT 1  SUE 

PLTR  306 

•00 

ncall=ncall*i 

PLTK  3C7 

CALL  AEROPT  1  X ,Y  ,L  1  HI T  ,  1 PTS,  IL 1  ST  ,  JL l  ST ,KL  1ST  .  4H? CD* . 4 , 2 , NCALL  .NCUPL  TK  303 

IRVE.  JCIIRVE  1 

PLTR  309 

810 

IF  1  ANGLE. EO.O.C. CK.KENC2.E0.il 

GO  TO 

830  PLTR  310 

IF  1  UNIT  .EO. 161  GO  TG  840 

PLTK  311 

1  UNI  T *  16 

PLTR  312 

I-C 

PLTR  313 

1XAXIS-4 

PLTK  314 

1  VAX  1  Ss  1 

PLTR  315 

1LIST-ISTPM2 

PLTK  316 

JUST.J4TKP2 

PLTR  317 

XL  1 S  T*KST  K  M2 

PLTR  318 

DC  820  J*1 .4 

RlTK  319 

820 

1PTS ( J)=NPTS( J.2) 

PLTK  329 

GO  TC  NO 

PLTK  321 

830 

NCtR  ve=ncurve-r 

PLTK  322 

840 

CCNT  If.UE 

PLTK  323 

1  XAX  I  S *  1 

PLTR  324 

IYAX 1 3=2 

PLTK  325 

IF  (ANGLE. EU.C.O.CR. KEN02.E0.il 

GO  TO 

1070  PLTK  326 

DO  660  J* 1,4 

PLTK  327 

IF  (LPriNT(J).EO.C)  GC  TC  e5C 

PLTK  328 

DPARM(JI=XSTA(LPLOTILPC(NT(JII 1 

PLTK  329 

GC  TC  860 

PLTR  330 

850 

DPAk“IJ)  =  l  .UE-6 

PLTK  331 

NCLR  VE  =  NCURVE- 5 

PLTK  332 

869 

CCNT  1  f.UE 

PLTR  333 

1 SLBL  =  1 

PLTR  334 

I  UNIT  >14 

PLTK  335 

870 

KKK=  0 

PLTR  336 

880 

KKK=KNK*1 

PLTR  337 

IF  ( OPARMIKKK I.E0.1.0E-6I  GO  TO 

1080 

PLTR  338 

890 

MBEG  =  1 

PLTR  339 

MEND* IE 

PLTR  340 

ICbR VE=0 

PLTR  341 

900 

ICLRVt* 1 CURVE  *1 

PLTR  342 

IF  1 (CURVE. EC. 51  GO  TU  940 

PLTR  343 

910 

READ  1 IUN IT.1130.E  N0“94U 1  XCI1CURVEI, 

PHI  1 1  CURVE l.trt HI ,F  IH|,GCM>,T»LTR  344 
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KHI.7CKI  ,EPLUS(MI,M»HHFG,MENOI 

PL  TR 

345 

c 

WRITE  16.970)  IUNI T.XCl 1CUFVE 1 ,PHI 1 1CURVEI 

PL  TR 

346 

C 

DO  740  K^MPEC.HtSO 

PLTR 

347 

c 

WRITE  (6.980)  Y(K)|F|K],GIKI,T(K),2(KI,EPLU5IK)  PLTR 

348 

c  . 

740  CONTINUE 

PLTR 

349 

IF  (1UM1.E0.16)  GO  TG  920 

PLTR 

350 

if  uesi XC ( I CURVE >-UPARH(KKKM.GT. 0.001) 

GO 

TO  930  PLTR 

351 

KBEG-E'FNDM 

PLTR 

352 

■' 

PENO-MNO+IE 

PLTR 

353 

r 

GO  TO  900 

PLTR 

354 

420 

IF  1  AfcS  1  PH  1  (  (CURVE  I-OPARFIKKKI  I.GT.  0.01  > 

GO 

TO  910  PLTR 

355 

J 

PBEG-MCNO* 1 

PLTR 

356 

MENU-PL-NDdE 

PLTR 

357 

1 

GO  TC  600 

PLTR 

358 

930 

IF  (ICUHVE.EC.il  GG  TO  890 

PLTR 

359 

940 

JCCRVfc- 1CURVE-1 

PLTR 

360 

IF  (JCUHVE.EC.GI  GO  TO  1060 

PLTR 

361 

LIMIT-JCURVF-IE 

PLTR 

362 

OC  950  J*1 tJCUKVE 

PLTR 

363 

950 

1PTSI J)«(E 

PLTR 

364 

00  960  1  °  1  ,L  1 P  IT 

PLTR 

365 

960 

YYII 1 = VI 1 1 

PLTR 

366 

00  970  W.LIP1T 

PLTR 

367 

XII)-F(I) 

PLTR 

368 

970 

CONTINUE 

PLTR 

369 

ncall-ncall»i 

PLTR 

370 

CALL  AfcROPT  CX,Y, LIMIT, IPTS.5HU/UCE,  5.4. 

3HY/L,  3.3.NCALL  .NCURVE,  JCUPLTR 

371 

IP  VE 1 

PLTR 

372 

IXAXI S*2 

PLTR 

373 

KG2ERC-0 

PLTR 

374 

00  960  1*1, LICIT 

PLTR 

375 

X 1  1  l-GI 1 1 

PLTR 

376 

IF  IXdl.GT. 0.000)  KGZERC-  1 

PLTR 

377 

VIII-VY(I) 

PLTR 

378 

980 

CENT  I  SUE 

PLTR 

379 

KCALL-MCALL*l 

PL  TP. 

380 

IF  (KG2bRO.EO.OI  GO  TO  990 

PL  TR 

381 

CALL  AEROPT  1 X , Y , L1MI I , 1 V I S, 5HW/UC E . 5 .4, 

3HY/L , 3 , 3 . NCALL , NCURVE, JCUPL  TR 

382 

IP  VE  1 

PLTR 

383 

990 

00  lUuG  1*1, LIMIT 

PLTR 

384 

X(I)=T(I 1 

PLTR 

385 

Y ( 1 1* YY I  1 ) 

PLTR 

386 

1U00 

CONTINUE 

PLTR 

387 

NCALL«NC4LL«1 

PLTR 

388 

CALL  AEROPT  ( X.Y ,L IMI T , IPT S, 5HT/TCE , 5.4 , 

3HY/L ,3,3, NCALL, NCURVE , JCUPL  TR 

389 

1RVEI 

PLTR 

390 

IXAXIS-1 

PLTR 

391 

K2CNE -0 

PLTR 

39? 

DO  1C  1 G  1-1, LIMIT 

PLTR 

393 

X( I )-7 1 1 1 

PLTR 

394 

IF  (X(l).LT.l.GDOI  KZCNE-1 

PLTR 

395 

V(ll-YYII) 

PLTR 

396 

10 10 

CONTINUE 

PLTR 

397 

NC ALL -NC ALL* 1 

PLTR 

398 

IF  (KZPNE . EO.O )  GC  TC  1020 

PLTR 

399 

CALL  AEROPT  (X.Y, LIMIT , IPTS. 1HZ, 1,1, 3HY/L.3. 

3 , NC ALL. NCURVE ,JCURVE )PL  TR 

400 

GO  TO  1030 

PLTR 

401 

1020 

NCUR Vc-NCURVE- 1 

PLTR 

402 

1030 

IXAXI 6-3 

PLTR 

403 

KEPLUS-0 

PLTR 

404 

00  1040  1-1, LIMIT 

PLTR 

405 

Xdl-CPlU&ll) 

PL  TR 

406 

IF  (XII  I.GT. C. 0001  KE PLUS- 1 

PLTR 

407 

Y1II-YVI  II 

PLTR 

408 

1040 

CCNTINUC 

PLTR 

409 

NCALL-MCALL*! 

PLTR 

410 

IF  (KEPLUS.EC.O)  GO  TO  1C>50 

PLTR 

411 

CALL  AEROPT  (X, Y.LIK1  T, I PTS.4H7CE* ,4 ,2,3HY/L 

,3,3, NC ALL, NCURVE, JCUR PLTR 

412 

1VE 1 

PLTR 

413 

GC  TO  1060 

PLTR 

414 

1050 

NCLRVE-NCURVE-l 

PLTR 

415 
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1060  IF  1 1 UNIT .£0. 161  REWIND  14 
IF  IIUNIT.E0.15I  REwIMC  15 
IXAX1S-1 

co  in  cso 

1070  KCUR Vt“NCUP VE-20 
1080  IF  IIUMIT.ECI.15I  CO  TO  1110 
REN1ND  14 
IXAX IS=1 
lUhITMS 
DO  11C0  J=  1 » 4 

IF  IKPOINTI J) .£0.01  CC  TO  1050 
DPARMIJ1  *OUMPHl I  KPCINKJI  I 
CO  TC  me 

1090  DPARMlJ»  =  l.Ci£-6 
NCURVE=NCUPVE-5 
1100  CONTINUE 
CO  TO  870 
1110  CONTINUE 
RETURN 
C 


c 

920 

FORMAT 

I1H1.3X.I3I 

c 

940 

FGPHAT 

(2X.7I5X.E12.61 1 

c 

950 

FOPMAT 

I6X.316X.E12. El  1 

C 

970 

FOPMAT 

(10X. 13.5X.EI2.6t5X, 

c 

98G 

FORMAT 

I3X.6I3X.E12. 611 

c 

1120  FGPHAT  I10EI2.6) 

1130  FORMAT  I2I25CE12.6I.102F12.6I 
ENO 


PITH  416 
PIT*  417 
PIT*  418 
PLTR  419 
PL  TR  420 
PLTR  421 
PL  TR  422 
PLTR  423 
PLTR  424 
PLTR  425 
PLTR  426 
PLTR  427 
PLTR  428 
PLTR  429 
PLTR  430 
PLTR  431 
PLTR  432 
PLTR  433 
PLTR  434 
PLTR  435 
PLTR  436 
PLTR  437 
PLTR  438 

.61  PLTR  439 

PLTR  440 
PLTR  441 
PLTR  442 
PLTR  443 
PLTR  444 


SUBROUTINE  PC  L V  I  TEMP, KOECR.  A.  C I 
IMPLICIT  REAL»«IA-H.O-ZI 
DIMENSION  A 1 6 1 

C  EVALUATES  POLYNOMIALS  USING  HORNER* S  RULE 

C 

C  TEMP  »  TEMPERATURE 

C  KOECR  •  OEGRFE  OF  POLYNOMIALS 

C  A  ■  POLYNOMIAL  COEFFICIENTS 

C  C  »  VALUE  OF  POLYNOMIAL 

c 

KO«KDEGR*I 

c-aikoi 

DC  10  1M.K0EGR 
KC-KD-1 

10  C*1EMP*C*AIKCJ 

RETURN 
END 


POLY  1 
POLY  2 
POLY  3 
POLY  ’  4 

POLY  5 
POLY  6 
POLY  7 
POLY  8 
POLY  9 
POLY  10 
POLY  11 
POLY  12 
POLY  13 
POLY  14 
POLY  15 
POLY  16 
POLY  17 
POLY  18 


SUPRCUTINF  PRCPTY 
IMPLICIT  KEAL*8  IA-H.C-ZI 
REAL*8  NOSE.LEwLAM.LEfcTRR 


PROP 

PROP 

PROP 


CCMMCN  /DFPVAR/  F(2,lOl.3l»FM2»101,3l«GI2.l01.Jl*GNI2.lOl.JI«TI2.PRCP 
1 10 1. 31 » TNI  2 »  10 1  >  31  »Z( 2. 101 . J  1 . INI 2 .10 1 .31 . Cl  10 1 1  iCNl  1U l » .  Y 1 10 1 1 1  YO^O^ 

^COMMON* /CPG2 /  PE2.TE2.LE2.VE2f CPE2DX, OTE 20X « DUE20X.PVE2DX . OPE2DV.OPKOP 
lUE2DN.nvE20h .0Tt20W.AMUE2.P0MU2.M2.RHCE2.REX2 
CCMMGN  /FRSTPM/  RHDINF ,P INF , TF S.UF S . PM L , C, XMA 

COMMON  /GASPRP/  LEWLANIlOll.LENTNRUQll , PR 4N0L ( 10 1 1 . PR ANOT ( 1 01 1 .CPPRUP 
K1C1 1  .GAMMA!  1011  .XMU!  101 1  ,  RHCM  lull  .HSMHI  1311  "JJ 

COMMON  /Gt' CM/  ALPHA.lhETAC.NCSt.RNCSE.WLST.X.XX.WX 

COMMON  / 1 NTEGR/  IE  .  IM . KENO  .KEN 02. KLX .K.L ■ MULNT 1 . I  NO.  KPRT • L PRT .KPR. PR  0 
1LPR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
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jf  COMMON  /OUTPUT/  CFWEDG,CFW!NF,CFXEDG,CFXlNF*CHEDGE,CMINF,AHACHE,DEPPaP 
'  ■■  U.CW.OMlNF.OliOUUO.S.STEUbC.STlKF.TAUETA.TAUX.DcLSTX. DELPHI  >THE  TAX  .PKUP 


.  2TKEPHI  PROP 

•  '  COKKON  /STAC/  PSTAG,TSTAG,PNC,OHSTAG,HSTAG,HE  PROP 

.  CCMHCN  /SURFAS/  C*fALL«CiNjND.PEUINDtVtaALL.TiHALLtXTWI500)tTMX1500)*XPRQP 

■  1CI(SCOI.CIXISC3),HMALL.TCCM4.KCI.KTh  PROP 

-  CCMHCN  /THPRTR/  tempi  101) , tote ( 101  I, TPI101 I.RTW.TB  PROP 

CGKMGN  /TRANSN/  KTUANS.KCKSET.XIF.CH! 2< 101 ) >Ch IHAX.XBAR  PROP 

CCPHCN  /TRBLNT/  ASTAH  ,  AXST  AR  ,  ALAMDA  ,  YSUBL  .  E  YSCTY  (1011  >  PRT ,  EOYLAU ,  EPROP 
tPLUSHOll.  ALFT.LAMTPB  PROP 

1  ■'  CCPHCN  /XI  CORC/  Xl. XXI, 0X1  .XTCLC.DXDXI.DXOXXI  PROP 

COMMON  /XSCIVE/  XSTAI  I OC  I  ,  CXMA X , DX  ,  DXULi) ,  DX 1 , NSOL VF  PPOP 

CCPHCN  /ZCCUPD/  F  T  A 1  NF  ,  b  T  A  F  AC  •  E  T  A  (  10  1 1  ,DE  T  A I  1  3  I  I  ,  Al)T  E  ST  ,  K  ADE  T  A  PROP 

OIHtNSION  U(IOl),  T2 1  1C  1 1  ,  7.2(1011,  F2I101I,  G2I1C1I  PROP 

'  ■  DATA  blunt , SHARP/SHULUNT , 5HSMARM/  PPOP 

■  IF  (NOSE.EO.SHAKPI  S=X/XSTA(NSCIVE I  PROP 

IF  (NUSE.EO.BLUNTI  S=X/RNGSE  PROP 

OC  10  J»1,!E  PROP 

.22  IJ)*Z(2,J,2)  PROP 

F2IJI*F<2,  J,2»  PROP 

G2I J)«GI 2, J,2 )  PROP 

IF  IK.bQ.ll  G2( J)*O.ODO  PROP 

*•.  ‘  .'T2I  Jl  “T  ( 2,  J,  2 1  PROP 

10'  .  TEMPI JI»(T2( Jl«hE-UE2**2*IF2<JI**2»G2<  JI**2I/2.0D0I/CP( J»  PROP 

■LPR1*LPR  PROP 

LPP— 10  PROP 

l.  '  CALL  MIXTUR  I T2,  T  E2,UE2,PE2.LEHLAf),  PRANOL,  CP,  GAHHA.C.CN,  XMU ,  RHO,  ROPROP 

IROb,Z2,F2i G2 ,HSUH  >  PROP 

-  .CPH-LPR1  PROP 

PROP 

THE  CUTPUT  QUANTITIES  ARE  CALCULATED  PROP 

PROP 

IF  (l ,E0« I , ARC, NOSE, EO, SHARP  I  GO  TO  50  PROP 

C  PROP 

C'  CALCULATE  PHYSICAL  NORMAL  DISTANCE  PROFILE  PPOP 

C  ‘  PROP 

' OELST X> 0.000  PROP 

DEIPII1*0.QOO  PROP 

THET  AX-G.GOO  PROP 

THEPHIO.ODO  PROP 

CHIHAX*3.0D0  PROP 

CHI2I1 1*0.000  PROP 

G2IE*GI2,IE,2>  PROP 

IF  IC.21E.E0.0.0DC)  G2IEM.COO  PROP 

YUI'G.ODO  PROP 

mm*j.cco  prop 

IF  IXI.EO.O.CCOI  YTRANS-1 .CDO/PNC  PROP 

IF  1X1. GT. 0.0001  YTRANS»CSORTI 2.0D0»X1 I/I  RH0E2«UC2*R2I  PROP 

Ci  PROP 

C  .CALCULATE  DISPLACEMENT  AND  HCKENTUM  THICKNESSES  PROP 

C  PROP 

CO  20  J«2. IE  PROP 

YIJI*YIJ-1  ItYTRANS*!  1  .OOO/ROROEt  J  I  *1  .ODO/ROROs  (  J-l  1 1*0ET  A I  J I /2.0D0PH0P 
VCUJI«YlJI/XSTAfNSDLVF)  PROP 

CELSTX=OELSTX«YT°ANS*l  (l.CDO/RCftOEl  JI-FI2,  J,2J  I*  U.ODO/RQROE  I  J-l  l-PKOP 

IF ( 2 , J-l ,2 1  I J'DETAI JI/2.CCC  PROP 

THETAX*THFTAX«YTRANSMF<?,  J, 21*11. 0D0-FI2,  J, 2|  )*F  12,  J-l  ,2»*C  l.ODO-PROP 
1FI2.J-1.2I  )I*CETA| Jl/2.0f  o  PROP 

TMEPHI»THbP»il*YTRANS*IG«2,  J.2I/G2I  F*l  1 ,000-G I  2,  J ,  2 1/«2 1 c  I  *61  2 ,  J- 1  , PROP 
12I/G21  E*(  1 .0CC-GI/,J-1,2I/G2IE  ll*OETA|  J)/2.wr«3  Prop 

DELPHI*  DtLPHI*YTR.\NS*((I.u  DO /KGPOSIJ  l-GI  2,J,2)/G2IE)*{  1  .ODO/ROROt  I  PROP 
lJI,-GI2t  J,2  1/G2IL  ll»3bTA«JI  /2.0DG  PROP 

CHI2(JI»Yt  JI**2*FNI2,  J,  21  •  RUM  OF  I J  I  **2*RH0E2*UE2*  1 1 ,000/ YTR  ANSI /XHUPROP 

1UI  PROP 

IF  (CHI2I J I, GT, CHI  MAX)  CH IMAX-CHl 21 J I  PROP 

20  CONTINUE  PROP 

C  PROP 

C  CALCULATE  BOUNDARY  LAYER  THICKNESS  PROP 

C  PROP 

00  30  N*1 ,  IE  PROP 

UtNI-FI2,N,2l  PROP 


15 

16 

17 

18 
19 
23 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6S 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

63 

64 
85 
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30 

40 

C 

so 


c 

c 

c 


«0 

c 

c 

c 


c 

70 


PROP 

•6 

PROP 

87 

PROP 

88 

PROP 

89 

PROP 

90 

PROP 

91 

PROP 

92 

PROP 

93 

PROP 

94 

PROP 

95 

PROP 

96 

PROP. 

97 

PROP 

98 

PROP 

99 

PROP 

ICO 

PROP 

101 

IF  IUINI.GE. 0.99500)  hK-N-1 
IF  IUINI.GE. C.99S00)  GC  TO  40 
CCM1  INUE 

OEL*VI NN)  ♦ I YINN*1 l-V(NN)  )»I0.99500-UINNI  l/IUI  NN*1)-UINNI I 
CONTINUE 

REX2»RHOE2*UE2*X/AMUF2 
APACHC*UE2/OSCRT(U*l(*TE2l 

RECr  AC'PRANOL  (  1  )**  1 1  .OCO/CFLGAT(LAHTRB*ll I 
TAh«TSTAG*RECFAC*TFS*l I .CDO-RECf AC > 

IF  (X. 10.0.000)  GO  10  60 

CALCULATE  SURFACE  PARAPtT EPS 

OWOETA*GN( 2. I >21 

IF  IK. Ed. I  .UR  .K.EO.KENCI  OWOE7A.O.OCO 
CFXINF«2.uC0»C(  ll**CMU2*UF.2**2*R2*FNI2, 1,2)/RHO!NF/UFS**2/DSORTI2.PROP 
1000*XII  PRO1* 

CF)<INF«2.000*Cm*ROMU2*UE2**2*R2*Cl<DETA/RFOINF/UFS**2/DSORTI2.00GPRaP 
l*XIl  PROP 

CFXEDG*2 • OD0»C ( 1 1  * AMUE2*P2*FM  2»I.2l/OSOR7(2.GDG*XII  PROP 

CFhE0G«2.0C6*CI 1 I  *RUHU2*UE2*R2*GNI  2, 1 , 2 ) /RHjF2 /Ut 2/OSORT 1 2 . ODO*X I |P®OP 
OW1NFMCONW/CP(1)"RHC( 1 1 •UE2*R2/DS0R  T(2.0U9*XI ) * I HE *TN( 2, 1 « 2  I *HE* T PR  OP 

PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 
PROP 


1LIWLAMI  1  )  —  1 .CDO) *HSUM{  l)*ZN(2,l,2)  I /RHOWIF /UF  S**  3 
0WINF«0WINF*I-1.GCCI 
1 AUX'C FXI NF» PHC 1 SF *UFS**?/2.000 
1AUETA«CFmINF *RHCI NF *UFS**2/2.GC0 
Qk-0I«1NF*PM0]  NF*UFS**3*l.2e6C-C3 

IF  (L. CO. 2. AND. NOSE. EQ. SHARP .AND. K. £0.11  OV.STAG=OW 
flfcCORO«OR/OnSTAG 

STEOGE*-OW/*HOE2/UE2/lhE*( l.GOO-H 2, 1 , 21 1  1*7  73.300 
CHEUGE  —  0U/RHCE2/UE2/CPI1  J/<TAW-TtaAlL  1*778.  300 
GC  TO  70 

IF  ( MCSE .EO. SHARP!  GO  TO  70 

CALCULATE  HEAT  TRANSFER  FOR  A  BLUNT  CONE  STAGNATION  POINT 

PROP 

Ok) NF  »1C  ONh/C  F|ll*FNC*PGEoEIII*IHt*TNI2<l.21«HE*(LEWLAMIl)-l *CDC ) *PROP 


IHSUH  111*7 N (2.1. 21)  /RHOINF  /UFS**3 
0NINF*0W|NF*I-I.0D0I 
OR-QhlNF*RHOIKF*UFS**3*L.2a6C-C3 
OhST AG«OH 
0NGQW0<=1.0D0 

CCM  I NUE 

ST  INF— OW/PHCINF/UFS/I  HE»(  1  .COC-TI  2, 1 , 21 1  1*7  70.300 
CHINF«-UW/RHCINF/UFS/CPII>/I7A..-7WAIL  1*778.303 
RETURN 
EhC 


PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 

PROP 


102 

103 

104 

105 

106 
107 
ICO 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 


C 

c 


SUBROUTINE  SHARP  1  (CRAB)  SHRP  1 

IMPLICIT  REAL*8IA-H,0-2)  SHRP  2 

REAL*B  NOSE  SHRP  3 

CCKHTN  /EDGE/  UcCC.TE DC, VE DC ,P£DG. OTEiiDX . DTfc GDW.DUC JOX , DUFGDW .DVEGSHRP  4 
lPXiDVEGDfclCPEGDX,CPFGCt.iU2PDN2i‘iHOEDG.AHUCOG.'<GMUEG  SHRP  5 

CCPKCN  /FkSIRK/  PHUINF .P [NF, If  S,<Jf  S ,  R  .  P-.L  .  G.  X  XHA  SHRP  6 

COPHON  /GEC.M/  A|PHAtTHfTAC.NCSr.RHCSE.WLST,X.XX,MX  SHRP  7 

COMMON  /INTEGR/  I L . I M , KENO ,KfcND2 , KLX , K, l , NDLNT 1 . I  NO, KPKT ,L PRT, KPR , SHRP  B 
ILPR  SHRP  9 

CCHHCN  /POLVCC/  CPMRL(6l,CPAIRHl6l,fcNA|RL(6).ENAIRH(6I.CHUAIRI6ltSHRP  10 
1CKUHFI6) .UIFH0(6I .CMUARI 61  .0  I F  AR 1 6 1 .CPCU2L  1 6 1  .CPC02H 1 61  •  FNC02L  (6 )  t  SHRP  11 
2ENC02H(6).CMUCU7lh),DtFCr2(6l  SHRP  12 

CCHHON  /STAG/  PSTAG,TSTAG,PNC,OWSTAG,HSTAG,HE  SHRP  13 

DIMENSION  APSI15I,  ARHOS  (  1 5)  i  ACFPHH15).  AVSIlSIt  A(15),  8(15).  CSHRP  14 
II1SI.  0(151  SHRP  15 

SHRP  16 

FOURIER  COEFFICIENTS  ARE  REAO  IN  ALLNG  WITH  AXIAL  DISTANCE  SHRP  17 
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(  EACH  UNIT  10 
C 

IF  (ALPHA .EQ .0.0001  CO  TO  70 
AIAO  1101  XS«  APS. ARHQS. ACFPH1 •  AVS 
BACKSPACE  10 

IF  (ALPHA. EO. 0.0001  KLX*7 
DO  10  J>1.KLX 
AIJIbAPSIJI 
OUI-ARHOS  Ul 
C(JJ*ACFPH|( J| 

‘ Dl J) >AVS ( J  I 
10  CONTINUE 

.  "  PI-UARCOS (-1.0001 

'  A Phi *0.000 
DEC>O.COO 

IF  CKENO.EO.l. OR. ALPHA. EO.O. COO)  CC  TO  20 
DECMBC.OOO/IDFLOATIKENDl-l.ODOl 
A  PHI  •>  ■•DEC 
20  CCNTINUE 
KKl*KLX-l 
•  DO  30  1*1 . K 
30  APH]  *APHI  tOEG 

!  PMl‘k;M?:UwlBc!°oofKC*  4PM,“*PH,-“-00‘>-«NOI*DEC 
V SOM* 0.000 
PSUH*C.ODO 
PHCSUH-0.000 
"  PHISUP*O.OCO 
VNSUM*O.CDO 
PNSUM-O.PDO 
PNNSUH=0.  oDO 
• RCKSUM*O.COC 
PHNSUM-O.OCO 
00  40  J*1 ,KLX 
Z-OFLOAT I J 1-1.900 
SUP1*A( Jl *0CCSI7*PHI I 
PSUK*PSUH. SUP  1 
'  SUP2-BI JI-DCCS(7*ph| | 

RHCSUM*KH0SUP«SUI"2 
SUP4*0I J 1  * CCC S C Z*°H  I  1 
VSUM*VSUR*  SUF4 
- SUPS*- A! J 1 *Z*OS INI 1*PH I I 
PNSUP«PNSUK*SUM5 
SUPfc*- PI JI*Z*OSIN<Z*ph|J 
' RCN$UN*RCNSUp*5Um6 
' SUPB— D<JI*Z*0SINIZ*PH|1 
VNSUP»VNSUM»SUP6 
SUM9*-A(  J)  »/ » *2*13C0S 1 2 »PHl I 
PNNSUM*PNNSUP*  SUM9 
40  CONTINUE 

00  SO  J* 1 . KKL 
H*CFL0AT(J) 

SUP3*C1  JI*UStMH*PHI  I 
PHISUM»PH I  SUP*  SU**3 
SUF7*CC  JI*H»CCCSf  H*b>iI  I 
'  'Phksuh>phnsuh«suh7 
50  CONTINUE 

IF  (K.NE.l  I  CO  TO  60 
PHISUM*C.0C0 
,  RCNSUM*O.OCO 

PNSUH«O.ODO 
60  CCNTINUE 

.PE0G*PSUK*RhC1NF*UFS*»2/G/XXPA*«2 
RHCEDG*RMOSUP»AMCINF 
V*VSUM 
1  CFA*PHISUH 

uedg«v*dcosicfai*ufs 

VEDC*V*OSINICFA)*UFS 
D2PDW2*PNNSUP«RHCINF*UFS*»2/G/XXMA»«2 
DPECCk*PNSUM»RHQINF*UFS*»2/C/XXMA»*2 
DRCDP* RONS UM6RH0 INF 


SNAP 

18 

SHRP 

19 

SHRP 

20 

SHRP 

21 

SHRP 

22 

SHRP 

23 

SHRP 

24 

SHRP 

25 

SHRP 

26 

SHRP 

27 

SHRP 

26 

SHRP 

29 

SHRP 

30 

SHRP 

31 

SHRP 

32 

SHRP 

33 

SHRP 

34 

SHRP 

3S 

•SHRP 

36 

SHPP 

37 

SHRP 

38 

SH«P 

39 

SHRP 

40 

SHRP 

41 

SHRP 

42 

SHRP 

43 

SHRP 

44 

SHRP 

45 

SHRP 

46 

SHRP 

47 

SHRP 

48 

SHRP 

49 

SHRP 

50 

SHRP 

51 

SHRP 

52 

SHRP 

53 

SHRP 

54 

SHRP 

55 

SHRP 

56 

SHRP 

57 

SHRP 

SB 

SHRP 

59 

SHRP 

60 

SHRP 

61 

SHRP 

62 

SHRP 

63 

SHRP 

64 

SHRP 

65 

SHRP 

66 

SHRP 

67 

SIIRP 

68 

SHRP 

69 

SHRP 

79 

SHRP 

71 

SHRP 

72 

SHRP 

73 

SHRP 

74 

SHRP 

75 

SHRP 

76 

SHRP 

77 

SHRP 

78 

SHRP 

79 

SHRP 

80 

SHRP 

81 

SHRP 

82 

SHRP 

S3 

SHRP 

84 

SHRP 

85 

SHRP 

86 

SHRP 

87 

SHRP 

88 
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DVEDP-VNSUM 

SHRP 

89 

DPFUP-PHNSUM 

SHRP 

90 

DVEGOW*invEDP*DSINICFAJ*V»DCOSICFAI*DPHDPI»UFS 

SHRP 

91 

TECC“PCOC/PMf CCC/R 

SHRP 

92 

CTEG(JW»l .CUO/RM RHOEnG*DPEGDH— PEDG*nROOPl/RHOEDG**2 

SHRP 

93 

DUEGDWe  (OVCOP*CCCSICFA  l-V*0$  IMCF  A)*OPHUP|  *UFS 

SHRP 

99 

70 

CONTINUE 

SHRP 

95 

IF  IK.CT.l)  CC  TO  100 

SHRP 

96 

IF  1TEDG.GT.2CCO.OOO)  GO  TO  80 

SHRP 

97 

CALL  PGLV  ITECD, 5.5NAIKL.HEI 

SHRP 

98 

GO  TO  90 

SHRP 

99 

80 

CALL  POLY  <TECG.5,ENA|PH,HEI 

SHRP 

100 

90 

HE>HE*TfDG»Uc0G**2/2.u00 

SHRP 

101 

100 

CONTINUE 

SHRP 

102 

C 

SHRP 

103 

c 

CALCULATE  X  DERIVATIVES 

SHRP 

109 

c 

SHRP 

105 

OPECCX«=O.ODO 

SHRP 

106 

DTEGDX=O.ODO 

SHRP 

107 

OUEGDX'O.OOO 

SHRP 

108 

DVEGDX«O.ODO 

SHRP 

109 

IF  tALPHA.Nc.C.OOO)  GO  TO  110 

SHRP 

110 

D2PDW2cO.OCO 

SHRP 

111 

VECG=0.000 

SHRP 

112 

DPEGLW«0.000 

SHRP 

113 

DTIGOWO.ODO 

SHRP 

119 

OUECOH=O.OCO 

SHRP 

115 

OVEGDWcO.OOO 

SHRP 

116 

110 

CONTINUE 

SHRP 

117 

RETURN 

SHRP 

118 

END 

SHRP 

119 

SUBROUTINE  SCLVE  { W, WN.EE 1 .FF l , EOGBC 1 

SOLV 

1 

IMPLICIT  REAL*8I A-M.0-2) 

SOLV 

2 

REAL*8  NOSE 

SOLV 

3 

CCKKCN  /CONVRG/  C3NV,  MT I  .  M  T2  ,NI  T 3.N  1  T 

SOLV 

9 

COMMON  /FINDIF/  A( I0| | ,  BP  1 1011 «b{ 101 ) ,CC< 101 1 « DDI 1011 

,011011, CI101S0LV 

5 

1I.CR1 

S3LV 

6 

CGPMCN  /INTEGP./  1  £  ,  I M,  KENO, KEND2. KLX ,KDUM,  L. N8LNT 1 ,  (NO ,XPRT ,  LPR T  , 

KSCLV 

7 

IPRtLPR 

SOLV 

8 

COPMCN  n CCOKD/  ETAlNF,ETArAC.ETA(10n«DETAI10ll.ADTEST.KA0ETA 

S1LV 

9 

DIMENSION  LEI  101 1  .  FH101I,  WI2.101.3I.  WNI2.IG1.3I 

SOLV 

Id 

SOLV 

11 

SUBROUTINE  SCLVF  CALCULATES  THE  SOLUTION  OF  A  GENERAL 

PAP  A  POL  1 C 

SOLV 

12 

PARTIAL  DIFFERENTIAL  EQUATION  WHEN  THE  THE  P.O.E.  IS 

REPRESENTED 

STL  V 

13 

BY  A  SYSTEM  Cf  IMPLICIT,  THREE-POINT  FINITE- DIFFERENCE  EQUATIONS. 

SOLV 

19 

TFE  THLHA&  ALGORITHM  AS  SOLVEO  BY  RICHTMEYEK  IS  USED 

TO  SOLVE  THE 

SCLV 

15 

SYSTEM. 

SOLV 

16 

SOLV 

17 

EEll >»EE1 

SOLV 

18 

FF  (I  l-FFl 

SOLV 

19 

00  10  J-2.IM 

SOLV 

20 

AP«A(J) 

SOLV 

21 

BP-BIJ) 

SOLV 

22 

CP-CCIJJ 

SOLV 

23 

DP-01 Jl 

SOLV 

29 

EEI J 1 —CP/ IBP* AP*EE 1 J-l  11 

SOLV 

25 

FFCJJ-IOP— AP*FF(J-1II/(BP*AP*EEIJ— 11) 

SOLV 

26 

CONTINUE 

SOLV 

27 

HI2. IE. 2 1* EOGBC 

SOLV 

28 

K-IM 

SOLV 

29 

DO  20  J-2,  IE 

SOLV 

30 

W(2,K,2)-EE(KI-WI2,K»1,2>*FFIKI 

SOLV 

31 

K»K- 1 

SOLV 

32 

CONTINUE 

SOLV 

33 

CALL  DERIV3  (H.2.2.ETA. IE , 1, WNI 

SOLV 

39 

RETURN 

SOLV 

35 

END 

SOLV 

36 
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SUBROUTINF  SPECBC 
IMPLICIT  REAL.BI A-H.Q-21 
REAL*B  LEWLAK  , LE  WTRR 

CCKMCN  /CONVkG/  CaNV,NITl,MT2,N|!3,NIT 

^*°J^jJ*T"ll2'l01*3,»Zt2»i01»3*»ir**2»l01,3»,Cll01  I.CNnoil.mOIl.VDSPBC 

Ut  CGiTECC.  VECG.PECG,  DTEGDX , 0 TEGDW , OUEGOX ,  DUEGOH.DVEGSPBC 
IDXiOVEGOU>OPEGOX,OP£GCViiD2PDM2  .RHOEDG,  AmuFOG.  RCMUEG  SP nr 

«urrH5Nn^nSll/r,r.Ft"UE",Vf  h,TEW,r,’fc‘,rx'0F,[-Hnw»0,,EH0X,0UEwnH,DVr 

1  VC  LOW  tOTCHDX  ,OTf  hl)fc ,  G  HkDh2  ,RHC  eH,  AMUF  W,  RPHUW 
CCHNCN  /FR  ST  RK/  RHOINF,  PINE,  TFS.UFS.R,  PUL,  O.XBA 

fOAiffif/  lEhlAHIIOl>,LEhTRBI10U,PRANM.I10l),PRANDTIl< 

II  101  I, GAMMA!  1  C  l  1  ,  X  VU(  101  »  ,RHCI  101  1  ,MSUH(  1011 
CCKMCN  /INJECT/  I N JC T «NC I N J.GA S2. CCOL ■ MASTRN 

■  1LPRHGN  /,NTECR/  lE«lM*KENU,KEN02,KLX,K.L.Ni»LNTl,IN0,KPitT,LPR1 

«?.Cr!!,?!!f.^S9EPNT/  Cut  101  It  CNN  1 1011 1 VWI  ion  ,G-I  13l),Th(lOI)  ,GWN  I 
I"SI*  10,1  *  11,1 1011  *2*M  101)  .XI  •<  ,0X0X1  M,  Xw ,RW 

■  l^AKWPOS •  WALL  V « IN  / E RC : M  TCHG0 1 G  ^  ^  ^ EhNEG. l 

CCKMCN  /XSOLVE/  XSTAIlCult DXKAX,  l)X  ,0X010 .0X1  .NSQLVE 

IF  INIT.EO.OI  NITCHG«0 
'  IF  (NIT.Nb.NITCHGI  RETURN 

IF  (L.EO.l)  CEIADV=JSORTI2.0nO»RHOIl|**2*nUEGOX/ROMUW) 

IF  IL.GT.l)  OETADY.RHCI II *UFH*AU/0S0RTI2.0D3*X IWI 
NALL  V>Ctf  AL  L»RHC  I  KF>||F  S/PhP  (1 1 
2MALL-BIOIFw/hALLV-*ZNI2t  1«2I*DETA0V 
IF  INIT.EO.OI  Af’OCT H»C  .COO 
PERCNT.f  DEIOATIMT  )* I.CCD1/2C0.000 
IF  INIT.EO.OI  PE RCNT «u .0 1 00 

2HALL«PERCNT*lHALL»(l.COC-PERCKTI*ZkOLO 

IF  IANDUTUI  10,70.20 
AHhNEG*AMOOTh 
THNEG-2W0LC 
SIGN— 1.000 
GC  10  30 
AKhPOS.AMDOTh 
2NPOS-/NGLO 
SIGN- I. 000 

IF  ISINLSTI  40,60,40 
IF  I S I GN*S INLST I  S0.6C.6C 

2  hAl L-7WP0S- 1 2WPCS-2 .NEC I * AMWPOS/ 1 AMriPOS- AMWNEG) 

S INLST. S IGN 
CONTINUE 

IF  IIhALL.LT. 0.0031  ZKALl-0.000 
IF  I2HALL.GT. i.OOOl  Z4ALL. 1.000 
ZMCLC.2WALL 

IF  IK. CO. II  ZhZERO.ZWCLC 
NITCHG*NITCHG*I 
RETURN 

ENC 


1 

2 

3 

4 

5 

6 

7 

8 
9 


[.OSPRC 

10 

SPBC 

11 

SPBC 

12 

CPSPRC 

13 

SPBC 

14 

SPRC 

IS 

R. SPOC 

16 

SPBC 

17 

1 .SPBC 

18 

SPBC 

19 

EGSPBC 

20 

SPBC 

21 

.XSPHC 

22 

SPBC 

23 

SPBC 

24 

SPBC 

25 

SPBC 

26 

SPBC 

27 

SPBC 

28 

SPBC 

29 

SPBC 

30 

SPBC 

31 

SPBC 

32 

SPBC 

33 

SPBC 

34 

SPOC 

35 

SPBC 

36 

SPBC 

37 

SPBC 

38 

SPRC 

39 

SP3C 

40 

SPBC 

41 

SPBC 

42 

SPBC 

43 

SPBC 

44 

SPBC 

45 

SPBC 

46 

SPBC 

47 

SPBC 

4B 

SPRC 

49 

SPBC 

53 

SPBC 

51 

SPBC 

52 

SPBC 

53 

SPBC 

54 

SPBC 

55 

SPBC 

56 

SPBC 

57 
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10 


SUBROUTINE  SPECIE  SPEC 

IMPLICIT  REAL-Bl  A-M,0— 2 1  SPEC 

REAL*B  NOSE.LEWLAP.LEMTKP  SPEC 

CC.MHCN  /FPSTRM/  AHQINF.MINF.TFS.UFS.R.PRL.O.XMA  SPEC 

COMMON  /GASPR P/  LEhLAMl 101 1 ,LE mTRBI 101 > , PK ANOU 1011 , PRANDT 1 1 01 1 .CPSPEC 
I(I01I*CAMpa(1O1I.X‘4UI1C1).RHCI1(.1),hSUM|  1011  SPEC 

CCMHFN  /GF CM/  ALPHA, THtTAC,Nr.SC,RN(iSE,WLST,X, XX, HX  SPEC 

CCHMC.N  /I  ECDEF/  Bl,B2,P3,61,G2.Fl,F?,[JE,AL,EPS,CHl,WlN0PT,Ul  SPCC 

COMMON  /1NTFGR/  1 E,  IM,  Kir.D,KEND2,  KLX,  K ,L  •  NULNT  1 ,  I  KO.KPKT  ,L»RT ,KPR, SPFC 
1LPR  SPEC 

COMMON  /PUECOF/  AOI101),AlU01l,A2tlOII,AJ(10l),A4<l01),A5(10l)  SPEC 
COMMON  /SULPNT/  CM  131 1  , C  Nw<  13 1)  •  VHl  ll)  1 1 , CW(  1 J  1 1 ,  T R <  1 3 1 1  ,GHN1 101 1  ,SPf  C 
It  MM  1311  ik  Hi  101 1 1 I  UNI  HI  I  •  lot  101I«/.mN<  lul  1  ■  X  I X  ,OXOX  [  W  ,  XW.HR  SPEC 

CCPMCN  /TRANSN/  KTRANS,K0NS£T,X1F.CII|2<1  Jl  I  , CH  IMAX, Xb AR  SPEC 

COMMON  /TKBLiNT/  ASTAR  ,  AKS1  A*  ,  ALAMDA,  VSUBL  ,  EVSCTV  C 101 1  ,  PR T ,  EDVL  Ah  ,  FSPEC 
1PLUSI101 l,ALET,LAMTRM  SPEC 

CCHMCN  /X  I COHC/  X 1 ,XX 1 ,0X1 ,X ICLGvOXOXI ,0X0 XX I  SPEC 

COMMON  / 2CCUKD/  ETAINF.tTAFAC, ETAI 1C  II .DETAI  1311 , ADTE S T • KAOE TA  SPEC 
DIMENSION  RGMUlllOll,  RUMUINUOll  SPEC 

SPEC 

SUBROUTINE  SPECIE  SETS  UP  THE  COEFFICIENTS  OF  THE  PARTIAL  SPEC 

DIFFERENTIAL  SPECIES  ECUAT10N  SPEC 

SPEC 

DO  10  JM  ,  I E  SPEC 

RCMU1 (JI=Cw(JI*t  LEWLAM1 J  l/PR  ANDLI J  I*LEWTR8  ( J  I*  XIF-EPLUS1 Jl /PR AND T I  SPEC 
1JII  SPEC 

CCNTINUE  SPEC 

CALL  DERI V  (R0MU1.ETA, 1E« 1.RCMU1NI  SPEC 

DO  20  J-l , IE  SPEC 

AOIJt— R0KU1(JI*U1  SPFC 

A1<J!»VW<JI-FCMII|NIJ)*U1  SPEC 

A2IJ1-FWI JI*F1»0E«GmIJI*F2  SPEC 

A3IJJ-C.OOO  SPEC 

A4I J I -2. GDI)- XI w«F«(J I  SPEC 

AS( Jl -DE-G-I J I  SPEC 

IF  (K.EQ.ll  ASIJi-0.000  SPEC 

CONTINUE  SPEC 

RETURN  SPEC 

END  SPEC 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 


SUBROUTINE  SUBLBL  (XCM.VORI 

SLfll 

1 

COMMON  /L 1 GLbL/  LGND, I SLBL * IUN IT.ICTI TLE 

SL  Bt 

2 

COMMON  /PK FILE/  XC , PH  1 

SL  ML 

3 

DIMENSION  XCI5I.  PHMSI 

SLBL 

4 

CATA  LI  ST  1 /3H?US/«L IS12/2HS*/ 

SLBL 

5 

IF  IIUNIT.E0.I4I  GO  TO  10 

SLBL 

6 

LBLARG'LI  ST  1 

SLBL 

7 

LBCHAR-3 

SLBL 

8 

NDECPL-  1 

SLBL 

9 

FLPN-PHK1  | 

SLBL 

10 

GO  TO  20 

SLBL 

11 

LBLARGM.IST2 

SLBL 

12 

LBCHAR-2 

SLBL 

13 

NOECPL-3 

SLBL 

14 

FLPN-XCfl I 

SLBL 

15 

CONTINUE 

SLBL 

16 

OX-1.5 

SLBL 

17 

DV-I.5 

SLBL 

18 

CALL  SYMBOL  1 XOR *nx, YOR-DV,0.1 5,LBLARG,0. G.LOCHAP 1 

SLBL 

19 

CALL  NHERF  IRCX.RCYI 

SLBL 

20 

OX-0.2 

SLBL 

21 

CALL  NUMBER  <R0X»CX,R0V,0. 15.FLPN.0.0, NOECPL 1 

SLBL 

22 

RETURN 

SLBL 

23 

END 

SLBL 

24 
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SUBROUTINE  TRBPRL  (TAU.RETHET) 

TRPR 

l 

IMPLICIT  RE*L*8I A-M.0-2) 

TRPR 

2 

REAL*8  LE*LAM,LFWTH»,NM,KH,Mf:itft 

TRPR 

3 

CCPMCN  /UE  PVAR/  hi  2,101,  j)  ,FM  2.1UI.3I  ,G( 2,101  .31  ,GN<2, 101,3)  ,T(2 

,TRPR 

4 

1101,31  ,T:il  2, 101.31 ,2  (2, 10 1,31,  ZM2, 101,  Jl  .Cl  101  >,CN(  10 1 1 , V 1 101 1 , YOTR »R 

5 

21 1 10]  I.RCPCEUOll 

TRPR 

6 

CCPMCN  /FCGH/  PEW,UCW,VEh,TEh,OPEHOX,OPEHOW,DU£WOX,OOewOV,DtfEMDX, 

DTRPR 

7 

1VEWCW,  OT  t  h OX,  DTE  HUH,  LIPH0H2  ,RMCEH ,  AMUEW.FOMUH 

TRPR 

8 

COPMCN  /FRSTRP/  RHCINF,P|NF,TFS,UFS,R,I'RL.U,XMA 

TRPR 

9 

COMMON  /CASPRP/  Ls»L4“( 101 1 , LE WTRUI1 0 1 ) , PR ANDL 1 10 1 1 , PRANDT 1 10 1  >  .CPTRPR 

10 

1(101 1 , GAMMA ( 101 ) ,X1U( 1C1 1 , FHC« 1011 ,hSUM< 13 1) 

TRPR 

11 

CCKMCN  /INTEGRA  I li ,  1  H, PEND ,K ENU2 , KLX , K, L  ,  NHLNT  1 , 1 NO, KPRT ,L PRT ,KPR 

»TRPR 

12 

1L  PR 

TRPR 

13 

CCPMCN  /SORFAS/  CWALL , Cw TND, PE W 1 ND , VWALL , T HALL ,XTUI 5G0 1 , 7WX 1 5G0 1  , 

XTRPR 

14 

1C l( SCO), Cl XI5C0I ,HWALL,1CCNH,KC1 ,  KTM 

TRPR 

IS 

CCPMCN  /TP  eLNT/  ASTAR, AKST AR, ALAMCA, YSUBL,  EVSCTYI  101 ) , PRT , EOYLAW, 

E  TRPR 

16 

IPIUSIIOI ), ALET .LAHTRU 

TRPR 

17 

DATA  RCTTA  .SHANG ,CE 3EC I, PE IER/ ShROTT  A, 5HSHANG, 5HCEBEC, 5HME IE R/ 

TRPR 

18 

DIMENSION  T  AU (1011 

TRPR 

19 

c 

TRPR 

20 

c 

TRPR 

21 

DO  80  N«l( IE 

TRPR 

22 

IF  (PRT.Nc .RCTTAI  GO  TO  10 

TRPR 

23 

c 

TRPR 

24 

c 

RGTT A  * S  TURBULENT  PRANOTL  NO. 

TRPR 

25 

c 

TRPR 

2b 

PRANOT (NI=C.950G-0.45DC*C YIN J/YSUBL 1**2 

TRPR 

27 

GO  TO  60 

TRPR 

23 

10 

CGNT1NUE 

TRPR 

29 

IF  (PRT. NE. SHANG)  CO  TO  20 

TRPR 

30 

c 

TRPR 

31 

c 

SPANG* S  TURBULENT  PRANOTL  NO. 

TRPR 

32 

c 

TRPR 

33 

PR1*C.3D0 

TRPR 

34 

PR2*C.9D0 

TRPR 

3S 

PR*NCT(N)»PR|*DEXP(-10.0DO*Y(M/YSUPLI»PR2*(  1.003-0. 200* Y(  NI/YSUDLTRPR 

36 

1) 

TRPR 

37 

GC  TC  80 

TRPR 

38 

20. 

.  CONTINUE 

TRPR 

39 

IF  (PRT.NE.CEBECI 1  GO  TO  60 

TRPR 

40 

c 

TRPR 

41 

c 

CE6EC I  * S  TURBULENT  PRANOTL  NC.‘ 

TRPR 

42 

c 

TRPR 

43 

ZOAKP*hHCI  M*UEw«R  ETHET/XPU«NMl.D-03 

TRPR 

44 

CFC2*2.COO*TAU( 1 )/RH0EH/UFh»*2 

TRPR 

45 

VHPLUS*ChALL»RHCINF.uFS/r HCI 1) /DSOFTITAUI 1 l/RHOINI) 

TRPR 

46 

PPIUS*XMU(  M/RHC  INt/UEH>*2*r>UEHCX*DS0RTICFC2l**(-3) 

TRPR 

47 

IF  IVhPLUS.EC.O.uCGI  GC  TO  3G 

TRPR 

48 

AN“ I X^l1 1  M  /A  PUEH*  ( RHGFW/RHOI 1 1  |»«2*PPL  JS/V8PLUSM  1  .GOO-DEXP(  1 l.BOOTRPR 

49 

I*XPUI  1  l/XXUI  M  *VHPLUS  I  l*C.cXPI  1 1.8Du*XMUI  1  >/XMJIN)*VWPLUS>  )  »*0 . 2  5D0TRPR 

50 

GC  TG  40 

TRPR 

51 

3J 

AN* 1 . CLO 

TRPR 

52 

40 

USFRIC'DSQRTl TAUI 1 l/RHOINt 1*AN 

TRPR 

53 

APLUS* 26.000*1 4.003/ I l .ODO*7rA«P**2> 

TRPR 

54 

6PLUS* 3S. .03*25. 39 C/I  t -CIU  *0.5  509»ZUA*IP**2  J 

TRPR 

55 

A«APLUS»XP.UINI/PHCINI*USFP|C/USFK|C**2 

TRPR 

56 

B»BPIUS*XMU(M/RHLINI  •USFR  IC/USFR  1C* *2 

TRPR 

57 

KM*b.4C3«G.  1900/(1. 003*0. 4900* ZCAMF* *2) 

TRPR 

58 

KH«0.44i)u*U.220G/(  1 .300*  C.4200*2UAMP**2I 

TRPR 

59 

IF  (N.GT.l  1  GC  TO  S3 

TRPR 

60 

PRANOT IN I*KM*B/(KH»A) 

TRPR 

61 

GO  TO  80 

TRPR 

62 

so 

PRANDT INI*  KM* 1 1. OOO-OE  XPI— YIN1/AII/IKH*!  1. 000- DE XPI-YIN1/BI1  1 

TRPR 

63 

GC  10  BO 

TRPR 

64 

*0 

CONTINUE 

TRPR 

65 

c 

TRPR 

66 

c 

MEIER’S  TURBULENT  NO. 

TRPR 

67 

c 

TRPR 

68 

AQO4.4D0 

TRPR 

69 

*■26.500 

TRPR 

70 

AK-0.4C0 

TRPR 

71 
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70 

eo 


AKO*O.447D0 

PRTlKF-O.nCO 

YPLUS-YIN)  *OSORT(T  AU(  IMRKOlNl  l/XHUINI 
IF  (YPLUS.CT.C.OOO)  CO  TO  TO 
PRANDTINI»PKT  INF* I  AQ/AI**2 
CC  10  80 

PRANDT(N|a(l«K*(  l.OOO-OEXPI-YPLUS/AII  I/I 
111 1**2 
CONTINUE 
RETURN 
END 


TRPR 

TRPR 

TRPR 

TRPR 

TRPR 

TRPR 

AKQ*t laOOO— DEXPf— YPLUS/AQITRPR 

TRPR 

TRPR 

TRPR 

TRPR 


72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 


10 


20 

30 


40 

SO 


SUBROUTINE  VCALC  VCAL 

JPPLICIT  REAL* 81  A-H»0— 2 1  VCM 

COPMON  /OEPVAft/  F(2,101,3l,FNf 2.101.3I.G(2.101.3l,GN(2,101.3l,TI2tVCAL 
1101, 3 1, TNI  2, 101,31 ,Z I  2. 101, 3 1, INI  2 ,101,31, Cl  10 II, CM  101 1 , VI 1C1 1 , YCVC AL 
2LI 101 l.RORCCOOl  I  yCAL 

CCPMCN  /IECOEF/  B1,B2,63,C1,C2,F1,F2,DE,AL , EPS .CHI ,  W 1 NOPT, U1  VCAL 

CGPNON  / 1 NTECR /  IE,1H,KEND  ,KEN02,KLX ,K,L , NOLNT 1 , 1N0, KPRT.LPRT ,KPR ,VC AL 
1LPR  VCAL 

CCPNGN  /SOLPNT /  CHI  10 1 1  ,CK.Wt 1C1I.VUI 101 1, CHI lOll.Tbl 101 ) ,GUN 1 101 1 ,VCAL 
1FHNI  101 1, FWI  10  II,  TUNI1C1I.  In  (1C  11, 7t.NI  101.1  .X I M  .OXUXI  k ,  XM.RW  VCAL 

CCPKCN  /SURF  AS/  Ch ALL , CM  I  NO, PE » 1HD, V WALL , TwALL ,XTb( 5001 , THXI 5001 .XVCAL 


let  1 5001 ,CIXI 5001 ,HMALL,TCCNM,KCI ,  KTW 
CCPPON  /WSCLVE/  Ch 

CCKHON  /X1C0P0/  XI.XXI.OXI ,X I CLO, DXDX1 ,DX0XX I 
CCPMCN  /XSOLVE/  XSIAIlObl, DXHA  X«DX,DXCLD ,0X1 ,NSOl VF 
CCPPCN  /ZCCORO/  ETAINF,ETAFAC,ETAI1C1I,DETA(1011, AOTEST aKAOETA 

THIS  SUBROUTINE  CALCULATES  THE  VALUE  OF  V 

VU<1)>VmALL 
DO  50  J<*2 . IE 
IF  IK.GT.lt  GC  TC  10 
CGCHlaGWUI 
DGCW2*GW( J-l 1 
GO  TO  30 

IF  IL.GT.l  I  GO  TO, 20 
DGCWIbIGI 2 , J .2 1-GI2. J, 1 ) l/Oa 
DGDM?>(GI2 ,J-1,2I-GI2, J-l, II l/OH 
GC  TO  30 

DGOnIbIGI 2,J,21-GI2,J,1I*GI1 , J ,31-GI 1, J.2I 1/2.000/DM 
DGDH2*U;<2,J-1,2I-G(2,J-1,1I»G(I,J-1,3I*GI  1,  J-l,  21 1/2.OD0/DH 
CFOxii°c.ono 
0FCXI2*0.0D0 
IF  IL.LO.l I  GO  TO  40 
OFCXIIbIFI 2, J.21-FI 1.J.2II/0XI 

DFCX12«IFI2,J-1,2I'F(1,J-1,2||/DX|  „.al 

VhIJIaVHI  J-l  (  2 . 3D0*X  I W*  {  DFDX 1 1+OFDX  I2)*FU|JI  *FW|  J-l  I  »DE*t  OGDHI  *DVC  Al 
1GDN2 I l*DET  Al J 1/2. COO  VCA 


VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VC  AL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 
VCAL 


CCNTINUt 

RETURN 

END 


VCAL 

VCAL 

VCAL 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 
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SUBROUTINE  HALL 

HALL 

t 

IMPLICIT  R  EAL*8( A-H«  0-21 

HALL 

2 

REALMS  NOSE 

WALL 

3 

CCMHCN  /DEPVAR/  FI2,101,3),FNI2,101,3),G(2,10l,3),GN(2,l01,3>,T(2 

.HALL 

4 

1101. 31  ,TN<  2,  101,  31, 212.101(3  I.ZNI  2.101 ,31  .Cl  101  >  ,CNI  131), Yl 1 01 1 , VCWAIL 

5 

2L (1011, KORCE (101 1 

HALL 

6 

t 

CCKHCN  /EDGE/  UE DC . TE DG, VECG , PEPC, DT ECOX, DTEGOW, DUEGDX , CUEGOW, OVECHALL 

7 

10 X  (DVEGOW  ,'CPEGDX  ,nPEGI>U,U2PDV,2  (RMOEOG,  A1UE DG, ROMUEG 

HALL 

S 

CCHMCN  /kOGW/  PEW,UER,VEk,,TEW,DPFWDX,DPCWORi  DUEwDX ,0U£  WOW, DYEWDX , 

OHALL 

9 

IVCkOrf  ,DTCWCX,0TFHCW,f)PUCW2  , PHD  EH,  AMUEH  , RCMUW 

HALL 

10 

COMMON  /rPSTRM/  RH01NF,P!KF,Tf*S,UFS,R«PRL,C,XMA 

HALL 

11 

CGMMCN  /GrOM/  ALPHA,  ThE  TAC  ,MCSE  .RNCSE  ,  « LSI,  X,  XX,  WX 

WALL 

12 

CCMMON  /1F.C0F F/  IU,R2,ri3,ol,Gi,Fl,F2,OF,AL,E»S,CHI,HINOPT,Ul 

HALL 

13 

CCMMCN  /INJECT/  I N JCT , NC Ih J . GA S2 .COCL . MAST KN 

WALL 

14 

COMMON  / INTEGR /  1 6 , IM, KEK0,KEND2, KLX ,K,L, NBLNT 1 , 1 ND, KPRT ,LPRT ,KPR 

•  HALL 

15 

1LPR 

HALL 

16 

COMMCN  /SOLPNT /  CM ( 10 1 ) ■ CNHl 1C1I.VWI 101) ,GM( l 3 1) , THl 13 1 1 ,GWN 1 101 1 

.WALL 

17 

1FWNI  101)  ,FHl  10 1 1  .  T.NI  101 1  ,  ZW 1 10 1  > .  2WM  101)  , X I W  ,0X0X1 M,  Xh  ,RW 

HALL 

18 

CCHHCN  /STAG/  PS  T  AG,  T  SI  AG  ,  PNC  ,  ChST  At,  ,IIST  AG, HE 

WALL 

19 

COMMON  /SURF  AS/  CW ALL , CHI ND, PEW 1N0 ,V„ALL , TWALL , XTHI 500 ) , TMXC 500)  , 

XhALL 

20 

■ 

ICI IS031 ,C 1X1  SCO )  ,HRALL,tCCNW,KCI , KTW 

HALL 

21 

CCMMCN  /TMPRTR/  TEM»<  1 01 1 ,  TC-TE 1 101 1 ,  TP  1 101  1  ,RT  W,  TB 

WALL 

22 

CCMMON  /X1C0RD/  XI ,XXI ,0X1 ,XIOLO,OXDXI ,0X0 XX 1 

MALL 

23 

CAiTA  aiUNI  .SHARP/SHflLUNT,  5KSHARP/ 

HALL 

24 

DATA  AF<L,ATh/3HABL,3HATR/ 

HALL 

25 

Pl'DARCQS(-l.OOO) 

MALL 

26 

c 

HALL 

27 

c 

INTERPOLATE  FOR  VALUES  OF  CHALL  AT  THE  MINOHARO  STREAMLINE 

WALL 

2B 

c 

HALL 

29 

IF  (MASTRN.EQ.O)  CO  TC  50 

HALL 

30 

IF  (K.GT.l I  CO  TO  20 

HALL 

31 

PEHlNO'PEW 

HALL 

32 

IF  (KCI.EO.O)  GO  TO  20 

HALL 

33 

IF  (XW.GT.XCIIKCIl)  GC  TC  50 

WALL 

34 

j»0 

HALL 

35 

10 

J-J*l 

WALL 

36 

IF  IXH.&T.XC IIJ) 1  GO  TC  10 

HALL 

37 

IF  (J.LT.2!  J=2 

HALL 

30 

IF  IJ.GT.XCI-II  J-KCl-1 

WALL 

39 

CALL  INTERS  1 XM, XC 11 J- 1 1 , XC 1 ( J ) , XC1 I J » l 1 , C I X t J- 1 1 , C 1 X( J > , C ! X ( J»1 1 

.WALL 

40 

'  1CH1N0) 

HALL 

41 

CH ALL ‘CW 1  NO 

HALL 

42 

GO  TO  60 

HALL 

43 

20 

IF  (CCCL.CC.APLI  CwALL«CHIN0*CCGSIWX*PI/180. 0001**2 

HALL 

44 

IF  (CUOL.EQ.TRAI  GO  TO  4C 

HALL 

45 

IF  OrX.LT.9C. COO)  GO  TC  40 

HALL 

46 

CHALL ‘0,000 

HALL 

47 

OG  30  N«l, IE 

WALL 

48 

Mi, 'A, 21  =  1.000 

HALL 

49 

INI  2 ,N, 2 ) ‘0.000 

HALL 

50 

2HIN ) ■ 1 ,000 

HALL 

51 

2HN(NI«0.000 

HALL 

52 

30 

'  CONTINUE 

WALL 

53 

40 

IF  (COOL. EO. THAI  CHALLSCW I NO*P EH 1  NO/PE H 

HALL 

54 

GC  TO  69 

HALL 

55 

30 

CWALL‘O.ODO 

HAIL 

56 

60 

CONTINUE 

WALL 

57 

C 

HALL 

58 

c 

INTERPOLATE  FOR  VALUES  OF  THALL  AT  THE  HINDHARO'  STREAMLINE 

HALL 

59 

c 

HALL 

60 

IF  (K.GT.l 1  GC  TC  90 

HALL 

61 

IF  (KTH.EO.OI  GO  TO  60 

HALL 

62 

J-0 

HAIL 

63 

70 

J-J«t 

WALL 

64 

IF  (XH.GT.XTHIJI I  GO  TC  70 

HALL 

65 

IF  (J.LT.2I  J‘2 

HALL 

66 

IF  (J.GT.KTW-ll  J«KTH-I 

HALL 

67 

CALL  1NIER3  IXH.XTHl J- 1 1 , XTHI J 1 , XTHI J+|),THX( J-1),THX( Jl ,THX(J»1I 

.HALL 

68 

IT  HALL) 

HALL 

69 

GC  TO  90 

HALL 

70 

•0 

THALL‘RTH*TSTAG 

WALL 

71 
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90  CCNT1NUE 

CALCULATE  THE  VALUE  Cf  BtC  V  AT  THE  HALL 

IF  (NOSE. EC. SHARP. AM). Xlw.EO. 0.0001  GO  TO  110 
IF  (XIW.EQ.O.CCCI  GO  TC  100 

VWALL«CWALL*PHCINF*UFS*CE*RW**2/0SCRT12.OD0*XIW) 

GC  TO  110 

100  Vk ALL  =  CWALL*RMOI NF»UF  S*OSORT 1 1 .000/1 2, 000* RMOE W*OUEGDX* AHUEW ) 1 

110  CCM 1  NUE 

RETURN 
INC 


WALL  T2 
WALL  73 
WALL  74 
WALL  75 
WALL  76 
WALL  77 
WALL  78 
WALL  79 
WALL  80 
WALL  81 
WALL  82 
WALL  83 


C 


10 


20 

C 

c 

c 


30 


60 


SUEROUT 1  HE  WEDGE  « XL , XPA , ThET AC .ALPHA. 10E 1  A, VB ,XB I 

WEDG 

1 

1  PPL  1C  IT  REAL»8  (A-H.O-Z) 

WEDG 

2 

COPMON  /FLOCAT/  FLOF LD< 5 , 1 51 .BLUNT Z C 43 1 ■ BLUNTP 1 40 1 . 1 1 1 

WEDG 

3 

01  PEN  Slur:  BETA170),  HR  ( 70 1 ,  HZ170I,  ZI40I,  PRESSI401,  PI15I, 

API 1 5WE0G 

4 

lit  PSUPI 70 1 i  X 1 40) .  RI40I 

WEOG 

5 

WRITE  130.1601 

WEDG 

6 

WRITE  (30.  120) 

WIDG 

7 

WRITE  (30.  160 

WEDG 

B 

WRITE  (30,130) 

WEOG 

9 

WE  OG 

10 

00  10  1*1,111 

WEDG 

11 

Zlll'BLUMZIll 

WEOG 

12 

PRE  SS ( 1 1  *  BLUNTP ( II 

WEOG 

13 

CCM  INUE 

WEDG 

14 

RCUM  *  1 1  1 

WEOG 

IS 

WRITE  (10)  KCUNT 

WEDG 

16 

Phi *0.000 

WEDG 

17 

CO  20  H* 1 , KCLNT 

WEOG 

18 

XI  PI *0ARC0S( 1.000-2 (HI  1 

WFOG 

19 

Rl P ) =DS I N ( X(P) I 

WEDG 

20 

Pl-OARCOSl-l.OOC) 

wmG 

21 

BETAU*XIH)*I  1  GO.O'JO/P  I  1 

WEDG 

22. 

WRITE  130,140  H  «PH  I  ,  BET  AO,X (H ) ,R( H) , Z (HI , PRESS (Ml 

WEOG 

23 

CCM  INUE 

WE  OG 

24 

WEDG 

25 

BLUNT  BODY  SOLUTION  IS  ADDED  TO  THE  EDGE  PROPERTIES  DATA  SET 

WEOG 

26 

WEOG 

27 

OC  30  1*1, KOLA T 

WEDG 

28 

WRITE  (10)  Zll ),X(t>,R(l > , PRES S( 1 1 

WE  OG 

29 

CCM  INUE 

WEOG 

30 

GAPHA*DARCCS IYBI 

W(  DG 

31 

WRITE  130,160 

WEOG 

32 

DEG*  1  BO  .C  DO/  ir.FLDAT(IUETA|-l  .0001 

WEDG 

33 

PHI*18J.OOO«DCG 

WEOG 

34 

i-igcta 

WEDG 

35 

WRITE  130,170) 

WEDG 

36 

WRITE  (30,160 

WEOG 

37 

IE  (ALPHA. EO.O.ODJI  L-l 

WEOG 

38 

DO  40  1*1, L 

WEDG 

39 

PH1*PHI-0EG 

WE  DG 

40 

PH!U*PHI*I PI/ISO. QDOI 

WEOG 

41 

BETAI 1 1 *DARCCS(DS INIG APMA 1 *nCCS 1 ALPHAl-OCOSCGAMMA )*DS INI ALPH A) •DCGW'OG 

42 

1SIPH1  ill  I 

WEOG 

43 

BE1AD=HETA(I )•( 1 8 3.000 /P 1 1 

WEOG 

44 

BR(ll*DSIN(UtTA( II) 

WEOG 

45 

Bill )*1.0uO-nCOS( BETAI ) 1 1 

WEDG 

46 

WRITE  130,150)  1 ,PHI , RET AO.OET A 1 1 1 ,HR( 1 1 , B21 1 1 

WEDG 

47 

CONTINUE 

WEDG 

48 

WRITE  (30.16CI 

wroG 

49 

WRITE  (3U,ldC) 

WEOG 

SO 

WRITE  (30,160 

wroG 

51 

WRITE  (30,200) 

WEDG 

52 

WRITE  (30,160) 

WEDG 

S3 

DC  50  1*1 , KOUNT 

WEDG 

54 
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50 

*  i 


60 

C  - 
C  ’ 

C  ■' 

cr- 


70 


80 

90 


100 

C 

C 

C 


110 

c 

c  • 

C  1 
120 
130 

160 

150 

160 

170 

180 

190 

200 


WHITE  130(190)  ltZ(  I) «XI ! ) ,R(II,PRESS(  I) 

CONTINUE 
WRITE  (101  L 
00  60  J=l,KL 
PIJt>FLCjFLD(3,JI 

IF  (ALPHA. EO. 0.000. OR. KL.EC.LI  CO  TC  70 

FIND  PRESSURES  ALONG  THE  BODY  FIXtD  PLANE  TERMINATING  THE  WEDGE 
SECTION  OR  THE  BLUNT  BCOY  SECTION 

CALL  FOR  I FR  (P.AP.KL.t) 

APHI ■180.300HDEG 
00  100  1  =  1  *L 

IF  ( ALPHA. EO. 0.000. OR. KL.EQ.L)  GO  TO  90 

APHI»APHI-|)EG 

PH1«AP|II»I  PI/1B0.0D3) 

PSLHI 11=0.000 

DO  BO  Ke 1 »  KL 

H-OFLOAT IK  1-1.000 

SUM) = API  K  I  *UCOS!  N*PH  I  I 

PSUH(1)=PSUM(I)+SUM1 

CONTINUE 

N-KGUNT+I 

IF  (ALPHA. FO.C.ODO)  PSUM(M=P(I) 

IF  (KL.EO.L)  PSUN( ll=P(L*l-l I 

WRITE  130.1901  N«t)2C  I  I  (BETA!  II  ,BR(  1 1  ,P$UN II) 

CONTINUE 

MECGE  SECTION  SOLUTION  IS  AOOcO  TO  THE  EDGE  PROPERTIES  DATA  SET 
00  110  1*1 (L 

WRITE  110)  BlIIl.rtETAIII.nRID.PSUNd) 

CONTINUE 

RETURN 


FCRNAT  ( tOX, 19HBLUNT  RCOY  SOLUTION! 

FORMAT  ( 3X .lH1.6X.3HPHI(20Xf 4HEET A$20XflHS«22Xt I HR v21X.lHZf21X.l HPNE OG 

1) 

FORMAT  IZX,|2f2XtFIZ.6,5( I  OX, F 12. 61) 

FORMAT  ( IH  tlX.I2(2X.F12.6i4(lCX<F12.6)) 

FCRNAT  I1H  I 

FCPKAT  UH0.5IHPTINTS  NEtDEO  FCR  THI  WEOGE  BOUNDARY  LAYER  SOLU 
1//3X 1 1HI . 7X, 3HPH I ■ 20X. 6HBE  T  A , 19X, IHS ,iZ* . t HR , 21X, 1HZ ) 

FCAMAT  1 10X , I9H0AT A  PUT  CN  UNIT  10) 

FORMAT  (  lX.l3tlX.F-  12.6.3(SXIE12.6I) 

FORMAT  I 11X.2HZA,14X,4HXSTA, 14Xf 2HRZ , 15X.2HP2) 

END 


WE  OG 

55 

WEOG 

56 

WE  DG 

57 

WEOG 

58 

WEOG 

59 

WEOG 

60 

WE  DG 

61 

WEOG 

62 

WEOG 

63 

WE  OG 

64 

WEOG 

65 

WEOG 

66 

WEOG 

67 

WE  DG 

68 

WEOG 

69 

WE  DG 

70 

WEOG 

71 

WE  DG 

72 

WEOG 

73 

WE  OG 

74 

WEOG 

75 

WE  OG 

76 

WE  DG 

77 

WEOG 

78 

WE  OG 

79 

WEOG 

80 

WEOG 

81 

WEOG 

82 

WEOG 

83 

WEOG 

84 

WE  DG 

85 

WEOG 

86 

WEOG 

87 

WEOG 

88 

WEOG 

89 

WE  DG 

90 

WE  OG 

91 

WEOG 

92 

PNEDG 

93 

WE  DG 

94 

WEOG 

95 

WEOG 

96 

WEOG 

97 

NWE  CG 

98 

WEOG 

99 

WEOG 

100 

WEOG 

101 

WE  OG 

102 

WEOG 

103 
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10 


20 


SUBROUTINE  KNOW  XMOM 

IMPLICIT  REAL*0( A-M.O-Z)  XMOM 

R  E Al *  8  NOSE  ,  XMOM 

CCPHCN  / DEPVAP/  FI2,101,3>,FM2,l31,3),GI2.l31.3},r,N<2,10t,3).TI2.XM]M 
1101. 31,  TNI  2, 1C1. 3 >.712,1  Cl ,3  >, INI  2.101 , 31 ,CI  lOD.CNUOl ) .YClOll, VOX MON 
2LI101I.KCKCEI101I  XMOM 

CCPMCN  /Ct  CM/  ALPHA , THET AC .NCSE.RNOSF , WLST .X.XX.UX  XMOM 

CCFMON  /  I  E  COFF  /  Bl,U2,B3,l,l.GZ,H,F2,l>E,AL,FPS.CHI  .RINDPT.U1  XMOM 

COMMON  /I HUGH/  lE,|M,KENn,KENC2,KLX,K.L, N3LNT 1 . 1 NO.KPRT ,LPR T , KPR  ,XM3M 
ILPH  XMOM 

CCPKCN  /POECOF/  AJI10I I.A 1 I1C1I.A2I 101 1. A3( 101 J.A41101 J.A5I 1011  X«GM 
COMMON  / SUL**M /  Cw'MO  1 1 , r.NWl  lo  1  > . VMl  10 1 1 ,  Grfl  10 1 1 .  Tw(  13  1 1  ,GwNI  101)  .XMOM 
1FNNI  101 1  ,FhC  10  1 1  .  1V.NI  I  Cl  )  ,  ZM  101 )  , ZkNI  101  I  ,X  I U  .0X0X1W,  XW.KM  XMOM 

COMMON  /TRANS):/  K  TR  ANS  .KCNSE  T  ,  XI  F  ,  Ch  1 2  11  01  I .  CM I  MAX  ,  XU AR  XMOM 

COMMON  /TRULM/  AST  A*  .AXSTAR,  ALAMOA.  VSUhL  .EVSCTYI  1011  ■  PUT ,  EOYLAm  .EXM'JM 
1PLUSUCI  I  .ALET.LAMTHB  XMOM 

CCM.MCN  /XI  Cl.RO/  Xt.XXI.OXI.XEOLO.DXOXt.OXDXXl  XMOM 

COMMON  H COORD/  ETA1NF.ETAFAC.ETA1 10 l).OtTA(lOl). ADTEST . KADE T A  X.MOM 
DIMENSION  KUMUlf 1011.  RCMUINIICI)  XMCM 

DATA  SHARP , BLUNT /5HSH ARP , SHGLUNT/  XMOM 

XMOM 

SUBROUTINE  SETS  UP  THE  COEFFICIENTS  OF  THE  PARTIAL  DIFFERENTIAL  XMOM 
X  MOMENTUM  EOUATICN  XMOM 

XMOM 

DC  10  J-l, IE  XMOM 

RCMU1(JI»CW(J)«< l.ODC*XIF»EPLUS(jn  XMOM 

CONTINUE  XMOM 

CALL  OCKIV  IRCMU1.ETA. IE, 1.RCMU1NI  XMOM 

DO  20  J>1.IE  XMQM 

A0IJ)bRCMUH'J)*U1  XMCM 

AllJIcRilMUlM  J)*Ul-tfh<  Jl  XMOM 

A2(  J I »-0E*  G1 *GWC  J l-Bl*FklJl  XMOM 

A3I  J)>1.30C/RCROEI  J I  *  I E 1  «IH»  Al*r,l-EPS»  AL»*2 1  *E  PSPGWI  J)**2  XMOM 

IF  IK.FO.l.ANC.NCSc.EC.SHARP)  A3(J)  =  0.30C  XMCM 

IF  (K.EO.l  .AND.NOSF.tC.MLUNT  )  A3 1  J  l  =  Bl  *1 1 . 3UO/ROROE  I J  )  )  XMOM 

A4I JI»-2.0C3*Xlk*F»(JI  XMOM 

A5IJ1=-DE*GhIJ1  XMOM 

IF  IK.EO.l)  A5(J)°G.30C  XMOM 

CCNT 1 NUb  XMOM 

RETURN  XMOM 

END  XMOM 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
23 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
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36 

37 

38 
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NOMENCLATURE 

Note:  All  quantities  are  dimensional  unless  otherwise  noted. 

A0"A5  Coefficients  in  the  governing  partial  differential  equations 
A*  Van  Driest  damping  constant 

Ci  Mass  fraction  of  species  i 

Cf  Skin-friction  coefficient 

Heat- transfer  coefficients 

Cp  Constant  pressure  specific  heat,  ft2/sec2-°R 
Cv  Constant  volume  specific  heat,  ft2/sec2-°R 

Dif  ‘  Binary  diffusion  coefficient,  ft2/sec 

E  Scalar  velocity  function  used  in  the  Van  Driest  inner  eddy  viscosity 
law  J 

H  ,  Mean  total  enthalpy,  ft2/sec2 

H‘  Fluctuating  total  enthalpy,  ft2/sec2 

h  Mean  static  enthalpy,  ft2/sec2 

Transition  intermittency  factor 

k  Thermal  conductivity 

k*  Mixing  length  constant  for  the  Van  Driest  inner  eddy  viscosity  law 

Le  Molecular  Lewis  number 

Le^.  Turbulent  Lewis  number 

a*  Mixing  length 

M.  Molecular  weight  of  species  i 

P  Pressure,  lb/ ft2 

Pr  Molecular  Prandtl  number 

Prt  Turbulent  Prandtl  number 
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2 

q  Wall  heat  transfer  rate,  ft-lb/ft  -sec 

w 

0  9 

R  Universal  gas  constant,  49,754.035  ft  /sec  -R 

r  Local  body  radius,  ft. 

rf  Recovery  factor 

St  Local  Stanton  number 

T  Mean  static  temperature,  °R 

u  Mean  streamwise  velocity  component,  ft/sec 

u'  Fluctuating  streamwise  velocity  component,  ft/sec 

V  Transformed  normal  velocity,  Eq.  (38) 

v  Mean  normal  velocity  component,  ft/sec 

v1  Fluctuating  normal  velocity  component,  ft/sec 

w  Mean  transverse  velocity  component,  ft/sec 

w1  Fluctuating  transverse  velocity  component,  ft/sec 

x  Local  surface  distance  from  the  stagnation  point,  ft. 

Xj  Location  of  the  end  of  transition,  ft. 

x^  Location  of  the  beginning  of  transition,  ft. 
y  Distance  normal  to  the  surface,  ft. 

y  Boundary-1 ayer  thickness  as  used  in  the  outer  eddy  viscosity  law, 

11  Eq.  (76) 

z  Free-stream  species  concentration  profile,  C./C. 

2  e 

e  Eddy  viscosity,  lb-sec/ ft 

2 

e .  Inner  region  eddy  viscosity,  Ib-sec/ft 

2 

eQ  Outer  region  eddy  viscosity,  lb-sec/ft 

e+  e/y 

6  Boundary-layer  thickness,  ft. 
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x  Mixing  length  constant  in  the  outer  eddy  viscosity  law 
<|>  Transverse  coordinate,  Radians 

p  Mean  density,  slugs/ft3 

0  Stagnation  enthalpy  profile,  Eq.  (49);  Momentum  thickness,  Eq.  (142- 

145),  ft. 

t  Local  skin  friction,  lb/ft^ 

5  Transformed  coordinate  as  defined  by  Eq.  (28) 

n  Transformed  coordinate  as  defined  by  Eq.  (29) 

nx  Derivative,  3n/ax 

Derivative,  3n/34> 

Subscripts 

aw  Adiabatic  wall 

e  Outer  edge  of  boundary  layer 

i  Designates  properties  of  species  i 

f  Designates  free-stream  specie  properties 

r  Reference  conditions,  taken  to  be  the  edge  conditions  at  the  wind¬ 

ward  streamline 

t  Designates  turbulent  quantities 

•  i 

w  Wall  conditions 

x  In  the  x  direction 

<fi  In  the  $  direction 

°°  Designates  free-stream  conditions 
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